← Back to branch summary

~rdiaz02/pomelo2/main01

« back to all changes in this revision

Viewing changes to cgi/mainF0.R

  • Committer: ramon diaz-uriarte
  • Date: 2010-07-20 13:48:10 UTC
  • Revision ID: ramon@xantusia-20100720134810-275qz1kzcvbf70dl
modified limma testing verification code to fix a syntax error

Show diffs side-by-side

added added

removed removed

Lines of Context:
cgi/mainF0.R
76
76
    for (i in 1:ndiff)
77
77
        genes[i, ] <- addEffect(genes[i, ])
78
78
 
79
 
    covar$Class2 <- factor(covar$Class2)
 
79
    covar$Class2 <- factor(covar$Class2, labels = LETTERS[1:4])
80
80
    
81
81
    
82
82
    options(contrasts = c("contr.treatment", "contr.poly"))
97
97
    
98
98
    ##  zz: ojo make sure the order of cvars corresponds with colnames
99
99
    colnames(d0)[1:nlevels(Class)] <- c("Intercept", levels(Class)[-1])
100
 
    
101
100
    constructContrasts <-
102
101
        paste("makeContrasts(",
103
102
              paste(levels(Class)[-1], "- Intercept", collapse = ", "),