PAM50

PAM50 applied to our RNAseq counts data

Author: Charleen D. Adams

PAM50Preds<-molecular.subtyping(sbt.model = "pam50",data=m1,
                                annot=annot_gene2,do.mapping=TRUE)
summary(PAM50Preds$subtype)

##  Basal   Her2   LumB   LumA Normal 
##     14     12     39     52      8