Nothing
print.front41Output <- function( x, efficiencies = FALSE, ... ) {
cat( "\nStochastic Frontier Analysis with FRONTIER 4.1\n" )
cat( "Model type:", x$modelTypeName, "\n" )
cat( "Function type:", x$functionTypeName, "\n" )
cat( "\nML Estimates:\n" )
print( coef( x ) )
if( efficiencies ) {
cat( "\nEfficiency Estimates:\n" )
print( x$efficiency )
}
cat( "\nMean Efficiency:", x$meanEfficiency, "\n" )
invisible( 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.