# NOT RUN {
power <- semPower.aPriori(effect = .05, effect.measure = "RMSEA", alpha = .05, beta = .05, df = 200)
power
power <- semPower.aPriori(effect = .15, effect.measure = "F0", alpha = .05, power = .80, df = 100)
power
power <- semPower.aPriori(alpha = .01, beta = .05, df = 5,
SigmaHat = diag(4), Sigma = cov(matrix(rnorm(4*1000), ncol=4)))
power
# }
Run the code above in your browser using DataLab