# NOT RUN {
data(marty)
##Class label 0/1
marty.type.num <- ifelse(marty.type.cl=="Her2+",0,1)
#Annotation of the grade of tumor
grade <- factor(sample(c(1:3),23,rep=TRUE),labels=c("I","II","III"))
annot <- data.frame(type=marty.type.num, grade=grade)
rownames(annot) <- colnames(marty)
marty.lm <- lm(marty[1,]~ annot$grade * annot$type)
X <- model.matrix(marty.lm)
LC <- makeAllContrasts(X, annot)
# }
Run the code above in your browser using DataLab