Nothing
model.matrix.svocc <-
function (object, model = c("sta", "det"), ...)
{
model <- match.arg(model)
if (!is.null(object$x))
rval <- object$x[[model]]
else if (!is.null(object$model))
rval <- model.matrix(object$terms[[model]], object$model,
contrasts = object$contrasts[[model]])
else stop("not enough information in fitted model to return model.matrix")
return(rval)
}
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.