
## S3 method for class 'AffymetrixCelFile':
writeImage(this, filename=NULL, fullname=NULL, tags=c("*", "sqrt", "gray"), imgFormat="png", path=NULL, field=c("intensities", "stdvs", "pixels"), ..., skip=TRUE, verbose=FALSE)
character
string specifying the filename of
the output file.character
string specifying the full name of
the output file.character
string specifying the filename extension
which also defines the image file format.*getImage()
.AffymetrixCelFile
.yellow.colors <- function(n) { hsv(h=0.15, v=0:(n-1)/(n-1)) }
df <- getFile(ds, 1)
writeImage(df, tags="gray", palette=gray.colors(256), xrange=c(0,200))
writeImage(df, tags="yellow", palette=yellow.colors(256), xrange=c(0,200))
writeImage(df, tags="heat", palette=heat.colors(256), xrange=c(0,200))
writeImage(df, tags="terrain", palette=terrain.colors(256), xrange=c(0,200))
writeImage(df, tags="topo", palette=topo.colors(256), xrange=c(0,200))
writeImage(df, tags="cm", palette=cm.colors(256), xrange=c(0,200))
writeImage(df, tags="rainbow", palette=rainbow(256), xrange=c(0,200))
Run the code above in your browser using DataLab