Nothing
trendMatrix.update <- function(model, Xnew) {
colnames(Xnew) <- colnames(model@X)
rownames(Xnew) <- nrow(model@X) + 1:nrow(Xnew)
Fnew <- model.matrix(model@trend.formula, data=Xnew)
Fupdated <- rbind(model@F, Fnew)
return(Fupdated)
}
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.