if (FALSE) {
power <- semPower.postHoc(effect = .05, effect.measure = "RMSEA", alpha = .05, N = 250, df = 200)
summary(power)
power <- semPower.postHoc(effect = list(.02, .01), effect.measure = "F0",
alpha = .05, N = list(250, 350), df = 200)
summary(power)
power <- semPower.postHoc(N = 1000, df = 5, alpha = .05,
SigmaHat = diag(4), Sigma = cov(matrix(rnorm(4*1000), ncol=4)))
summary(power)
}
Run the code above in your browser using DataLab