Nothing
fitted.uRegress <-
function (object,...,X, version=FALSE) {
obj <- object
vrsn <- "20110928"
if (version) return(vrsn)
if (!missing(X)) {
if (dim(X)[2] != dim(obj$processTerms$X)[2]) stop("new data not appropriate dimensions")
if (dim(obj$coefficients)[1] == dim(X)[2] + 1) X <- cbind(1,X)
fits <- X %*% obj$coefficients[,1]
} else fits <- obj$glmobj$fitted.values
if (obj$functional == "geometric mean") fits <- exp(fits)
fits
}
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.