R/extractInfo.r

In kindlychung/qcdh_old_r_pkg: A GWAS tool that takes compound heterozygosity into account

# extract relevant info into result
extractInfo = function(info, snpidx, suffix) {
    info = info[snpidx,]
    info = majMin(info)
    info = subset(info, select=-c(Freq1, Quality, Rsq))
    names(info) = paste(names(info), suffix, sep='')
    info
}