# discretize Boutros data as in
# Markowetz et al, 2005
data("BoutrosRNAi2002")
disc <- nem.discretize(BoutrosRNAiExpression,neg.control=1:4,pos.control=5:8,cutoff=.7)
stopifnot(disc$dat==BoutrosRNAiDiscrete[,9:16])
Run the code above in your browser using DataLab