spPrevalence <-
function(commMatrix, relative=TRUE){
sP <- colSums(commMatrix)
if(relative == TRUE){ sP <- sP/nrow(commMatrix)}
return(sP)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.