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