R/HWExactMat.R

Defines functions HWExactMat

Documented in HWExactMat

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))
}

Try the HardyWeinberg package in your browser

Any scripts or data that you put into this service are public.

HardyWeinberg documentation built on May 7, 2022, 5:05 p.m.