Nothing
## run reproduction scripts from the NLME book chapters
testdir <- system.file("scripts", package = "nlme", mustWork = TRUE)
scripts <- dir(testdir, pattern = "^ch[0-9]*\\.R$")
for(f in scripts) {
writeLines(c("", strrep("=", nchar(f)), basename(f), strrep("=", nchar(f))))
set.seed(3)
options(warn = 1) # chapters set digits
source(file.path(testdir, f), echo = TRUE,
max.deparse.length = Inf, keep.source = TRUE)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.