filter.absent <-
function(x,pct){
present <- TRUE
col <- length(x)/2
pct.absent <- (sum(x[2*(1:col)]=="A") + sum(x[2*(1:col)]=="M"))/col
if(pct.absent > pct){present <- FALSE}
present
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.