R microarray analysis script