working R script for array analysis