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