Nothing
rstudent.ellipsefitlist <- function(model,...){
g <- model
thenames <- g$Estimates[,1:(which(colnames(g$Estimates)=="b.x")-1)]
thelengths <- lapply(g$models, function(x) length(x$pred.x))
rowvec <- mapply(function(x,y) rep(x,each=y),1:length(thelengths),y=thelengths)
thenames <- thenames[rowvec,]
thefittedx<-lapply(g$models,function (x) rstudent.ellipsefit(x)[,"input"])
thefittedx <- unlist(thefittedx)
thefittedy<-lapply(g$models,function (x) rstudent.ellipsefit(x)[,"output"])
thefittedy <- unlist(thefittedy)
data.frame(thenames,"input"=thefittedx,"output"=thefittedy)
}
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.