##---------------------# #“Æ—§‚Č2ŒQ‚ĖtŒŸ’č ##---------------------# setwd("W:/workshop2010/data/") library(rpsychi) esposito <- read.table("Esposito2009.csv", sep=",", header=T) esposito$group <- factor(esposito$group, labels=c("’á’Y…‰ŧ•Ļ","’ᎉ–b")) summary(esposito) groupSummary(data=esposito, group="group") power.t.test(delta=0.3, sd=0.7, sig.level=.05, power=.80) ((87*2)/(1-.25)) ((87*2)/(1-.25)) *.75 ind.t.test(outcome~group, data=esposito) ind.t.test.second(m=c(-1.2,-0.6), sd=c(1.0, 0.6), n=c(102,97)) t.test(outcome~group, data=esposito, var.equal=TRUE)