Nothing
HWExactMat <- function(X,...) {
# applies exact test for HWE to each row of X.
pvalvec <- NULL
nmarkers <- nrow(X)
for (i in 1:nrow(X)) {
out <- HWExact(X[i,],...)
pvalvec <- c(pvalvec,out$pval)
}
return(list(pvalvec=pvalvec))
}
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.