require(robustlmm)
## verify all scripts listed in argument of viewCopyOfSimulationStudy actually
## exist
sourceDirectory <-
system.file("simulationStudy", package = "robustlmm")
allScripts <- list.files(sourceDirectory, pattern = ".R$")
actualScripts <- eval(formals(viewCopyOfSimulationStudy)$study)
stopifnot(all(actualScripts %in% allScripts))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.