data(mscdata)
dat <- mksub(mscdata, id=1108447)
dat.ss <- seas.sum(dat, width="mon")
image(dat.ss)
image(dat.ss,contour=FALSE)
image(dat.ss,norm="active",start=6,rep=5)
dat2.ss <- seas.sum(dat,start.day=as.Date("2001-08-01"))
image(dat2.ss)
image(dat2.ss,power=2)
image(dat2.ss,palette=rainbow(64),main=NA) # no title
image(dat2.ss,palette=colorRampPalette(c("white","darkgreen"))(16))
image(dat2.ss,"snow")
image(dat2.ss,"snow",power=0.5)
Run the code above in your browser using DataLab