Small cleanup.
This commit is contained in:
parent
443b18cea6
commit
9ab1ebe687
|
@ -161,9 +161,7 @@ Example: Y-N, M-F""" % ", ".join(data.get_categories()))
|
||||||
|
|
||||||
rpy.r.assign("expr", affy.asarray())
|
rpy.r.assign("expr", affy.asarray())
|
||||||
silent_eval("fit <- lmFit(expr, design)")
|
silent_eval("fit <- lmFit(expr, design)")
|
||||||
# FIXME: might be a case for code injection...
|
silent_eval("contrast.matrix <- makeContrasts(%s, levels=design)" % response)
|
||||||
string = "contrast.matrix <- makeContrasts(%s, levels=design)" % response
|
|
||||||
silent_eval(string)
|
|
||||||
silent_eval("fit2 <- contrasts.fit(fit, contrast.matrix)")
|
silent_eval("fit2 <- contrasts.fit(fit, contrast.matrix)")
|
||||||
silent_eval("fit2 <- eBayes(fit2)")
|
silent_eval("fit2 <- eBayes(fit2)")
|
||||||
coeff = rpy.r("fit2$coefficients")
|
coeff = rpy.r("fit2$coefficients")
|
||||||
|
|
Reference in New Issue