comparison edgeR.pl @ 2:2e3f0fbd745a draft

Uploaded

1:aab4a565c0e8

for(i in colnames(fit2)) {
	tab_tmp <- topTable(fit2, coef=i, n=Inf, sort.by=\"none\", adjust.method=\"$OPTIONS{f}\")
	colnames(tab_tmp)[-1] <- paste(i, colnames(tab_tmp)[-1], sep=\":\")
	if(is.null(tab)) {
		tab <- tab_tmp
	} else tab <- cbind(tab, tab_tmp[,-1])
}
tab <- cbind(Feature=rownames(tab), tab)
";
}
print Rcmd "

2:2e3f0fbd745a

for(i in colnames(fit2)) {
	tab_tmp <- topTable(fit2, coef=i, n=Inf, sort.by=\"none\", adjust.method=\"$OPTIONS{f}\")
	colnames(tab_tmp)[-1] <- paste(i, colnames(tab_tmp)[-1], sep=\":\")
	if(is.null(tab)) {
		tab <- tab_tmp
	} else tab <- cbind(tab, tab_tmp)
}
tab <- cbind(Feature=rownames(tab), tab)
";
}
print Rcmd "