## ROTS-statistic for the Affymetrix spike-in data.
rots.out <- ROTS(data = affySpikeIn, groups = c(rep(0,5), rep(1,5)),
B = 100, K = 500 , seed = 1234)
## Plotting of the ROTS results.
plot(rots.out)
Run the code above in your browser using DataLab