R/chrnumber.r

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

# get the chromosome number from the info file name
chrnumber = function(infof) {
    chr_string = regmatches(infof, regexpr('chr\\d+.*\\.info', infof, perl=TRUE))
    chr = regmatches(chr_string, regexpr('\\d+', chr_string))
    chr = as.integer(chr)
    chr
}