gjamReZero <- function( yDeZero ){
ymat <- matrix(0, yDeZero$n, yDeZero$S)
ymat[yDeZero$index] <- yDeZero$yvec
colnames(ymat) <- yDeZero$ynames
ymat
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.