qcflag <- function(qc, number) {
mask <- 2^(number-1)
return(sapply(qc, function(x) {
return(sum(bitwAnd(x, mask) > 0))
}))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.