!!!一元配置分散分析
!1) データは、以下の形式（タブ区切り）でテキストファイル保存
,group,ms
,High,438 
,High,374 
,High,313 
,High,337 
,High,393 
,High,432 
,High,380 
,High,390 
,High,354 
,High,322 
,High,328 
,High,305 
,High,386 
,High,348 
,High,271 
,High,398 
,High,401 
,High,380 
,High,324 
,High,347 
,High,350 
,High,234 
,High,327 
,High,375 
,High,325 
,High,338 
,High,366 
,High,348 
,High,398 
,High,290 
,High,384 
,High,443 
,High,303 
,High,343 
,High,358 
,High,393 
,High,363 
,High,411 
,High,389 
,High,379 
,High,246 
,High,408 
,High,393 
,High,326 
,High,405 
,High,321 
,High,353 
,High,361 
,Low,343 
,Low,470 
,Low,337 
,Low,353 
,Low,327 
,Low,326 
,Low,332 
,Low,393 
,Low,395 
,Low,435 
,Low,375 
,Low,311 
,Low,331 
,Low,303 
,Low,331 
,Low,369 
,Low,313 
,Low,351 
,Low,374 
,Low,390 
,Low,362 
,Low,285 
,Low,382 
,Low,298 
,Low,347 
,Low,375 
,Low,380 
,Low,364 
,Low,429 
,Low,375 
,Low,401 
,Low,307 
,Low,401 
,Low,394 
,Low,350 
,Low,351 
,Low,380 
,Low,340 
,Low,398 
,Low,351 
,Low,458 
,Low,427 
,Low,311 
,Low,341 
,Low,389 
,Low,363 
,Low,334 
,Low,386 
!2) Rで読み込む
 items <- read.table(choose.files(), header=T, sep="\t")
!3) 分散分析（以下のどちらでもよい）
 summary(aov(items$ms ~ items$group))

 anova(lm(items$ms ~ items$group))