Update affycode.R