if(interactive()){
sst.ym <- satinMean(sst, by = "%Y-%m") # sst is a satin object with 240 weekly
# images, totalling five years of data.
sst.ym # this will have 60 time periods, one for every month and year.
sst.m <- satinMean(sst, by = "%m") # this will produce 12 monthly periods
}
Run the code above in your browser using DataLab