library(expbarcode)

Data=ReadAffy()

e=barcodeRMA(Data)

tab=barcodeCall(e, i=1)		# 1st array

print(format(tab[1:10,-1]))