Nothing
nnlsPred <- function (x, y, w = NULL) {
if (is.vector (w)) {
w <- sqrt(unlist (w))
x <- w * x
y <- w * y
}
z <- qr(x)
q <- qr.Q(z)
u <- -colSums(y * q)
l <- nnls(t(q), u)$x
b <- backsolve(qr.R (z), colSums((y + l) * q))
h <- drop(x %*% b)
return (list(coef = b, pred = h, ssq = sum((y-h) & 2)))
}
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.