Nothing
print.summary.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( "Estimated Coefficients:\n" )
printCoefmat( x$coef$stat )
cat( "R-squared Values of expenditure shares:\n" )
print( x$r2 )
cat( "R-squared Values of quantities:\n" )
print( x$r2q )
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.