Nothing
print.aidsMono <- function( x, header = TRUE, ... ) {
if( header ) {
cat( "\nChecking the monotonicity condition of an " )
if( x$priceIndex == "TL" ) {
cat( "Almost Ideal Demand System (AIDS):\n" )
} else {
cat( "Linear Approximate Almost Ideal Demand System (LA-AIDS):\n" )
}
}
cat( "Monotonicity is fulfilled at " )
cat( x$nMonoObs, "out of", x$nValidObs, "observations" )
cat( " (", x$monoPercent, "%)\n", sep = "" )
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.