SHARE
TWEET

Untitled

a guest Jan 12th, 2017 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. library(raster)
  2. GPP2000049=raster("GPP.2000049.h23v03.tif") GPP2000057=raster("GPP.2000057.h23v03.tif")
  3. GPP2000065=raster("GPP.2000065.h23v03.tif") GPP2000073=raster("GPP.2000073.h23v03.tif")
  4. GPP2000081=raster("GPP.2000081.h23v03.tif") GPP2000089=raster("GPP.2000089.h23v03.tif")
  5. GPP2000097=raster("GPP.2000097.h23v03.tif") GPP2000105=raster("GPP.2000105.h23v03.tif")
  6. GPP2000113=raster("GPP.2000113.h23v03.tif") GPP2000121=raster("GPP.2000121.h23v03.tif")
  7. GPP2000129=raster("GPP.2000129.h23v03.tif") GPP2000137=raster("GPP.2000137.h23v03.tif")
  8. GPP2000145=raster("GPP.2000145.h23v03.tif") GPP2000153=raster("GPP.2000153.h23v03.tif")
  9. GPP2000161=raster("GPP.2000161.h23v03.tif") GPP2000169=raster("GPP.2000169.h23v03.tif")
  10. GPP2000177=raster("GPP.2000177.h23v03.tif") GPP2000185=raster("GPP.2000185.h23v03.tif")
  11. GPP2000193=raster("GPP.2000193.h23v03.tif") GPP2000201=raster("GPP.2000201.h23v03.tif")
  12. GPP2000209=raster("GPP.2000209.h23v03.tif") GPP2000217=raster("GPP.2000217.h23v03.tif")
  13. GPP2000225=raster("GPP.2000225.h23v03.tif") GPP2000233=raster("GPP.2000233.h23v03.tif")
  14. GPP2000241=raster("GPP.2000241.h23v03.tif") GPP2000249=raster("GPP.2000249.h23v03.tif")
  15. GPP2000257=raster("GPP.2000257.h23v03.tif") GPP2000265=raster("GPP.2000265.h23v03.tif")
  16. GPP2000273=raster("GPP.2000273.h23v03.tif") GPP2000281=raster("GPP.2000281.h23v03.tif")
  17. GPP2000289=raster("GPP.2000289.h23v03.tif") GPP2000297=raster("GPP.2000297.h23v03.tif")
  18. GPP2000305=raster("GPP.2000305.h23v03.tif") GPP2000313=raster("GPP.2000313.h23v03.tif")
  19. GPP2000321=raster("GPP.2000321.h23v03.tif") GPP2000329=raster("GPP.2000329.h23v03.tif")
  20. GPP2000337=raster("GPP.2000337.h23v03.tif") GPP2000345=raster("GPP.2000345.h23v03.tif")
  21. GPP2000353=raster("GPP.2000353.h23v03.tif") GPP2000361=raster("GPP.2000361.h23v03.tif")
  22.  
  23. MaxGPP2000h23v03=stack(GPP2000049,GPP2000057,GPP2000065,GPP2000073,
  24.                        GPP2000081,GPP2000089,GPP2000097,GPP2000105,
  25.                        GPP2000113,GPP2000121,GPP2000129,GPP2000137,
  26.                        GPP2000145,GPP2000153,GPP2000161,GPP2000169,
  27.                        GPP2000177,GPP2000185,GPP2000193,GPP2000201,
  28.                        GPP2000209,GPP2000217,GPP2000225,GPP2000233,
  29.                        GPP2000241,GPP2000249,GPP2000257,GPP2000265,
  30.                        GPP2000273,GPP2000281,GPP2000289,GPP2000297,
  31.                        GPP2000305,GPP2000313, GPP2000321,GPP2000329,
  32.                        GPP2000337,GPP2000345,GPP2000353,GPP2000361)
  33.  
  34. MaxGPP2000h23v03=max(MaxGPP2000h23v03)
  35. writeRaster(MaxGPP2000h23v03,filename = "MaxGPP2000h23v03.tif",overwrite=TRUE)
RAW Paste Data
Top