getmafmat <- function(mat) {
nsnp <- dim(mat)[2]
var_maf <- sapply(1:nsnp, function(i) min(getAlleleFrequencies(mat[, i])))
return(var_maf)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.