Nothing
residuals.sfaFLW <- function( object, which = "final", ... ) {
if( which == "final" ) {
resid <- residuals( object$npreg ) - object$mu
} else if( which == "first" ) {
resid <- residuals( object$npreg )
} else {
stop( "argument 'which' must be either \"first\" or \"final\"" )
}
return( resid )
}
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.