> R> library(affy) > R> Data <- ReadAffy( ) > R> eset <- rma(Data) > R> write.exprs(eset, file="mydata.txt") You could call it all in one line: library(affy);data <- ReadAffy() ... Or you could put it in a function: foo <- function() { library(affy) Data <- readAffy() ... } -J