Nothing
##
## Compute the polynomial expansion of a matrix, according to the specified
## `polyTerms` object
##
expandMatrix <- function(X, polyTerms, intercept = FALSE)
{
ans <- computeExpandMatrix(X = X, poly_terms = polyTerms)
rownames(ans) <- rownames(X)
colnames(ans) <- rownames(polyTerms)
if (intercept)
ans <- cbind("(Intercept)" = 1L, ans)
ans
}
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.