###### Export 95% CI of bootstrapped estimates of polynomial
#Estimate a model: FM26_PARALLELASYMWEAK (simulation data)
RSA_NSfit <- RSAmodel(formula= engagement ~ needs*supplies,
data= sim_NSfit, model= c("FM26_PARALLELASYMWEAK"))
#Bootstrapped sampling with lavaan
RSA_NSfit_boot <- lavaan::bootstrapLavaan(RSA_NSfit$models$FM26_PARALLELASYMWEAK,
R= 10,FUN="coef")
#Export results in a table
RSA_NSfit_boot_exp <- exportRSA.bootstrap(RSA_NSfit_boot)
RSA_NSfit_boot_exp
Run the code above in your browser using DataLab