cellx<-function(X) { X<-pasteColsRfit(t(X)) W<-suppressWarnings(model.matrix(~0+X)) matrix(W,ncol=ncol(W)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.