Nothing
.prepareData.systemfit <- function( data )
{
callNoDots <- match.call( expand.dots = FALSE ) #-"- without ...-expansion
# model frame (without formula)
modelFrame <- callNoDots[ c( 1, match( "data", names( callNoDots ), 0 ) ) ]
modelFrame$na.action <- as.name( "na.pass" )
modelFrame[[1]] <- as.name( "model.frame" )
return( modelFrame )
}
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.