if (FALSE) {
E.hat <- numeric(ncol(GenoM)) # based on trio where possible
for (l in 1:ncol(GenoM)) {
E.hat[l] <- stats::optimise(CalcChi2, interval=c(0,1), q=AF[l],
A.obs=OO.trio[l,,,], ErrF=ErrF)$minimum
} }
Run the code above in your browser using DataLab