Nothing
terms.systemfit <- function( x, ... ) {
result <- list()
eqnLabels <- NULL
for( i in 1:length( x$eq ) ){
result <- c( result, terms( x$eq[[ i ]] ) )
eqnLabels <- c( eqnLabels, x$eq[[ i ]]$eqnLabel )
}
names( result ) <- eqnLabels
return( result )
}
terms.systemfit.equation <- function( x, ... ) {
result <- x$terms
return( result )
}
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.