Nothing
coef.endogMNP <- function(object, subset = NULL, ...) {
param <- object$param
# p <- object$n.alt
# n.cov <- ncol(param) - p*(p-1)/2
n.cov <- ncol(param) - object$n.dim
n <- nrow(param)
if (is.null(subset))
return(param[,1:n.cov])
else if (subset > n)
stop(paste("invalid input for `subset.' only", nrow(param), "draws are stored."))
else
return(param[subset, 1:n.cov])
}
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.