Nothing
summary.translogEst <- function( object, ... ) {
object$coefTable <- coefTable( coef( object ),
diag( vcov( object ) )^0.5, df.residual( object$est ) )
class( object ) <- "summary.translogEst"
return( object )
}
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.