stratify <-
function (dataset){
xx <- apply(dataset, 1, function(x) paste(x, collapse = "\r"))
tab <- table(xx)
st <- names(tab)
strata <- match(xx,st)
return(strata)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.