Nothing
mac <- function (X)
{
# compute the minor allele count for a vector or for each row of matrix of genotype counts.
if (is.vector(X)) {
n <- sum(X)
nA <- 2*X[1] + X[2] # number of A alleles
nB <- 2*n - nA
y <- min(nA,nB)
}
else if (is.matrix(X)) {
n <- apply(X,1,sum)
nA <- 2*X[,1] + X[,2]
nB <- 2*n - nA
y <- pmin(nA,nB)
}
return(y)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.