updateModel <- function(x, model, updateMatrices = FALSE){
# New model:
newMod <- model
# Overwrite the current estimates:
for (i in seq_along(x)){
newMod@parameters$est[newMod@parameters$par==i] <- x[i]
}
# Add implied too:
if (updateMatrices){
newMod@modelmatrices <- impliedModel(newMod, model@types, all = TRUE)
}
newMod
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.