Nothing
# Form the model matrix M :
Mmatrix <- function(x){
rows <- seq_len(nrow(x))[x$par!=0]
cols <- x$par[x$par!=0]
dims <- c(nrow(x),max(x$par))
# Check for diagonal matrix:
# if (all(rows == cols) && dims[1] == dims[2]){
# M <- Diagonal(dims[1]) # Diagonal matrix
# } else {
M <- sparseMatrix(i = rows, j = cols, dims = dims)
M <- as(M, "dMatrix")
# }
return(M)
}
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.