coalgen.default <- function(sample,...) { sample<-as.matrix(sample) out<-1 class(out)<-"coalgen" out }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.