- What are the colors on French flag?
- What are the colors on Belgiens flag?
Will we replicate the results of experiment 1?
esComp() in furncions.r
We have this function from [RP:P project]
esComp <- function(
x,
df1,
df2,
N,
esType){
esComp <- ifelse(esType=="t", # For t test
sqrt((x^2*(1 / df2)) / (((x^2*1) / df2) + 1)),
ifelse(
esType=="F", # For F test
sqrt((x*(df1 / df2)) / (((x*df1) / df2) + 1))*sqrt(1/df1),
ifelse(
esType=="r", # For correlation
x,
ifelse(
esType=="Chi2", # For chi square
sqrt(x/N),
ifelse(
esType == "z", # For z test
tanh(x * sqrt(1/(N-3))),
NA
)
)
)
))
return(esComp)
}
## [1] 0.3676462
## [1] 0.3398666
## [1] 0.8532638
## [1] 0.7947758
How large is the major effect?