Nothing
print.aidsEst <- function( x, ... ) {
cat( "\nDemand analysis with the Almost Ideal " )
cat( "Demand System (AIDS)\n" )
cat( "Estimation Method: " )
cat( .aidsEstMethod( x$method, x$priceIndex ) )
cat( "Coefficients:\n" )
print( coef( x ) )
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.