[R] Help with Affymetrix data

[kvyas]

I have CEL files from Affymetrix Mouse Array 430_2 and am trying to get the 
the individual PM intensities (11 per gene) for each sample. I would like to 
write out this into a tab delimited text file. Where am I stalling? This is 
what I've done:

Change dir(to where CEL files are saved)
Data <- ReadAffy()
eset <- rma(Data)
write.exprs(eset, file="mydata.txt")

With this I am only able to get the average intensities per gene not the 
intensity per probe of each gene.

Please help me out.

Kanan