# NOT RUN {
data(colon)
normal.group <- colon[,1:40]
targetselection(normal.group)
## Similar intensities, the range of the sample variances is small
## and the average is not close to one. The scaled identity matrix
## seems to be the most suitable target matrix for the normal group
colon.group <- colon[,41:62]
targetselection(colon.group)
## Similar intensities, the range of the sample variances is small
## and the average is not close to one. The scaled identity matrix
## seems to be the most suitable target matrix for the colon group
# }
Run the code above in your browser using DataLab