Nothing
predict.quadFuncEst <- function( object, newdata = NULL, ... ) {
if( class( object$est )[1] != "lm" ) {
warning( "predictions with panel data models might return wrong results" )
}
if( is.null( newdata ) ) {
result <- predict( object$est )
} else {
result <- quadFuncCalc( xNames = object$xNames, data = newdata,
coef = coef( object ), shifterNames = object$shifterNames,
homWeights = object$homWeights )
}
return( result )
}
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.