Open sky1ove opened 2 years ago
Only human version has it.
if(genome=="hg20"){ HLAs <- anno.mat$hgnc_symbol[grep("^HLA-", anno.mat$hgnc_symbol)] toRev <- which(anno.mat$hgnc_symbol %in% c(as.vector(cyclegenes[[1]]), HLAs)) if(length(toRev)>0){ anno.mat <- anno.mat[-toRev, ] } }
It can be added by removing genes starting with "H2-", then cycle genes
Only human version has it.
if(genome=="hg20"){ HLAs <- anno.mat$hgnc_symbol[grep("^HLA-", anno.mat$hgnc_symbol)] toRev <- which(anno.mat$hgnc_symbol %in% c(as.vector(cyclegenes[[1]]), HLAs)) if(length(toRev)>0){ anno.mat <- anno.mat[-toRev, ] } }
It can be added by removing genes starting with "H2-", then cycle genes