if (require(minfiData)) {
detP <- detectionP(RGsetEx)
failed <- detP>0.01
colMeans(failed) # Fraction of failed positions per sample
sum(rowMeans(failed)>0.5) # How many positions failed in >50% of samples?
}
Run the code above in your browser using DataLab