modelestim<-function(excl){
if(excl==0){
fit <- sem(model, data =data, meanstructure = TRUE)
} else {
fit <- sem(model, data =data[-c(1:excl),], meanstructure = TRUE)
}
return(fit)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.