hlaSubModelObj {HIBAG} | R Documentation |
Get the first n individual classifiers.
hlaSubModelObj(obj, n)
obj |
an object of |
n |
an integer, get the first n individual classifiers |
Return an object of hlaAttrBagObj
.
Xiuwen Zheng
# make a "hlaAlleleClass" object hla.id <- "C" hla <- hlaAllele(HLA_Type_Table$sample.id, H1 = HLA_Type_Table[, paste(hla.id, ".1", sep="")], H2 = HLA_Type_Table[, paste(hla.id, ".2", sep="")], locus=hla.id, assembly="hg19") # training genotypes region <- 50 # kb snpid <- hlaFlankingSNP(HapMap_CEU_Geno$snp.id, HapMap_CEU_Geno$snp.position, hla.id, region*1000, assembly="hg19") train.geno <- hlaGenoSubset(HapMap_CEU_Geno, snp.sel = match(snpid, HapMap_CEU_Geno$snp.id)) # train a HIBAG model set.seed(1000) # please use "nclassifier=100" when you use HIBAG for real data model <- hlaAttrBagging(hla, train.geno, nclassifier=2, verbose.detail=TRUE) mobj <- hlaModelToObj(model) summary(mobj) newmobj <- hlaSubModelObj(mobj, 1) summary(newmobj)