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