## Not run:
# data(kidney)
# # riplot before filtering
# riplot(kidney.raw, array=1)
# # filter the gene
# rawdata <- dyeswapfilter(kidney.raw)
# # riplot again - some genes are highlighted
# riplot(rawdata, array=1)## End(Not run)
Run the code above in your browser using DataLab