library('raster')library("gimms","rgdal")input<-'G:/ndvi_GIMMS3g/data'out<-'G:/ndvi_GIMMS3g/data_tif'for(valuein1981:2015){fn1<-paste0(input,"/ndvi3g_geo_v1_",value,"_","0712",".nc4")print(paste0("正在读取...%s_%s",value,"0712"))ndvi3g<-rasterizeGimms(x=fn1)for(var...
# downloadGimms() 可以使用这个函数来下载#library("gimms","rgdal")#这个包还有些函数,可以对数据进行精度控制,这里暂时用不到。for(valuein1982:2015){fn1<-paste0("你的输入路径/ndvi3g_geo_v1_",value,"_","0106",".nc4")ndvi3g<-rasterizeGimms(x=fn1)sprintf("正在读取...%s_%s",value,"...