# \donttest{
ex1model<-'
math ~ c*ME + start(0)*ME + b*HE + start(0.39)*HE
HE ~ a*ME + start(0.39)*ME
ab := a*b
'
N <- 50
system.time(power_robust <- power.bmem(ex1model, method = "robust", nobs = N,
nrep=100, parallel=TRUE, ncore=8))
summary.power(power_robust)
# }
Run the code above in your browser using DataLab