copyModels <- function(models){
# function to write a line in poped/matlab format
print('- Copying models')
# copy files to current model files
file.copy(models$modfullest, 'runfE.mod', overwrite=TRUE)
file.copy(models$modfullsim, 'runfS.mod', overwrite=TRUE)
file.copy(models$modredest , 'runrE.mod', overwrite=TRUE)
file.copy(models$modredsim , 'runrS.mod', overwrite=TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.