## Not run:
# ##Solar irradiation data from CMSAF
# ##Data available from http://www.box.net/shared/rl51y1t9sldxk54ogd44
#
# old <- getwd()
# ##change to your folder...
# setwd('CMSAF')
# listFich <- dir(pattern='2008')
# stackSIS <- stack(listFich)
# stackSIS <- stackSIS*24 ##from irradiance (W/m2) to irradiation Wh/m2
# setwd(old)
#
# idx <- seq(as.Date('2008-01-15'), as.Date('2008-12-15'), 'month')
#
# SISmm <- setZ(stackSIS, idx)
# names(SISmm) <- month.abb
#
# splom(SISmm)
# ## End(Not run)Run the code above in your browser using DataLab