## File Name: mgsem_modify_model.R
## File Version: 0.04
mgsem_modify_model <- function(model, group, entry, type, value)
{
for (gg in group){
for (ee in entry){
for (tt in type){
model[[gg+1]][[ee]][[tt]] <- value+0*model[[gg+1]][[ee]][[tt]]
} # end tt
} # end ee
} # end gg
#--- output
return(model)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.