if(interactive()){
csst <- climatology(sst) # sst is a satin object with 12 monthly images
# of sea surface temperature
# -- plots --
# coverage
plot(csst, period = 1)
# mean
plot(csst, period = 2)
# standard deviation
plot(csst, period = 3)
# minimum
plot(csst, period = 4)
# maximum
plot(csst, period = 5)
}
# For Copernicus data
# \donttest{
data(dcmems) # load sample data
names(dcmems) # available variables
# mean potential temperature (thetao) at 0.49 m
# using labels stored in slot period
cthetao1 <- climatology(dcmems$thetao, depth = 1)
plot(cthetao1, period = 2, main = cthetao1@period$label[2])
# standard deviation of thetao at 318 m
cthetao2 <- climatology(dcmems$thetao, depth = 5)
plot(cthetao2, period = 3, main = cthetao1@period$label[3])
# }
Run the code above in your browser using DataLab