R script used for Affy data analysis