affimertix analysis codes in R