Nothing
MgRefit <- function(object,data,step,silent=FALSE,verbose=FALSE){
object$call$data <- data
try2fit <- try(refit <- eval(object$call),silent=silent)
if (inherits(try2fit,"try-error")==TRUE){
if (verbose==TRUE)
warning(paste("During bootstrapping: model ",class(object)," failed in step ",step),immediate.=TRUE)
NULL
}
else{
refit$call$data <- NULL
refit
}
}
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.