# 練習課題の確認コード。sample-dataの親フォルダから実行します。

d <- read.csv("sample-data/sample_independent_t_scores.csv")
a <- d$score[d$group=="Intervention"]
b <- d$score[d$group=="Control"]
forward <- t.test(a,b,var.equal=TRUE)
reverse <- t.test(b,a,var.equal=TRUE)
answer <- list(direction=data.frame(comparison=c("Intervention-Control","Control-Intervention"),
 difference=c(mean(a)-mean(b),mean(b)-mean(a)),
 lower=c(forward$conf.int[1],reverse$conf.int[1]),upper=c(forward$conf.int[2],reverse$conf.int[2]),
 t=c(unname(forward$statistic),unname(reverse$statistic)),p=c(forward$p.value,reverse$p.value)))

print(answer)