- 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?