library(affydata)
data(Dilution)
ppset.name <- sample(featureNames(Dilution), 1)
ppset <- probeset(Dilution, ppset.name)[[1]]
ppset.log <- transform(ppset, fun=log)
par(mfrow=c(1,2))
plot(ppset)
plot(ppset.log)
Run the code above in your browser using DataLab