pollenThreshold <- function(commM, perc){
maxCon <- apply(commM, MARGIN=2, FUN=max)
thres <- as.vector(perc * maxCon)
result <- data.frame(colnames(commM), thres)
return(result)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.