data_clean <- function(rawfeature){
ind <- which(rowSums(rawfeature>0)>=10)
feature <- rawfeature[ind, ]
feat.names <- rownames(feature)
return(list(feature = feature,
feat.names = feat.names)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.