getdata <- function(s) {
## FIXME: if s is missing, generate list of available files
## FIXME: be more flexible about extensions
## FIXME: can data() be adapted for this??
p <- parent.frame()
load(system.file("extdata",paste(s,".rda",sep=""),
package="glmmADMB"),envir=p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.