Nothing
# program spuRs/resources/scripts/scoping.r
# Script to demonstrate the difference between passing and copying
# arguments.
# We use an artificial example with no real-world utility.
require(nlme)
fm1 <- lme(distance ~ age, data = Orthodont)
fm1$numIter <- 1
fm2 <- fm1
nochange <- function(x) {
2 * x$numIter
return(x)
}
change <- function(x) {
x$numIter <- integer(2)
return(x)
}
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.