quick test for affy brca in R