Nothing
vcov.intReg <- function( object, boundaries=FALSE, ... ) {
## vcov method. By default, ignore the fixed boundaries.
vc <- NextMethod("vcov", object, ...)
if(!boundaries) {
i <- rep(TRUE, nParam(object))
i[object$param$index$boundary] <- FALSE
vc <- vc[i,i]
}
class( vc) <- c( "vcov.intReg", class(vc) )
return( vc )
}
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.