Revision 3db72d58
Added by Rick Reeves over 13 years ago
- ID 3db72d58862d921c726bbaba359e604a994a5840
terrain/rscripts/makeImagePairTable.r | ||
---|---|---|
18 | 18 |
inputCgiarRaster <- raster("/data/project/organisms/rcr/AsterCgiarMerge/mergeCgiarAsterBdySRTM_BLEven.tif") |
19 | 19 |
inputAsterRaster <- raster("/data/project/organisms/rcr/AsterCgiarMerge/mergeCgiarAsterBdyASTER_BLEven.tif") |
20 | 20 |
inputMosaicRaster <- raster("/data/project/organisms/rcr/AsterCgiarMerge/mergeCgiarAsterBdyFinalBLEven.tif") |
21 |
inputCDEMRaster <- raster("/data/project/organisms/rcr/ValidateBoundary/CDEMMosCgiarAsterBdy_BLEven.tif")
|
|
21 |
inputCDEMRaster <- raster("/data/project/organisms/rcr/ValidateBoundary/CDemMosSundayClipMergeSpaceEven.tif")
|
|
22 | 22 |
# |
23 | 23 |
# Difference image for entire merged image takes a while to create, |
24 | 24 |
# so we created it once, now read it back in. |
... | ... | |
34 | 34 |
# the ASTER and SRTM/CGIAR image components are merged at the 60 Deg N Latitude line. |
35 | 35 |
|
36 | 36 |
#eTestAreaExtent <- extent(-135.2,-100.2, 59.997,60.001) # Creates a 5 row subimage |
37 |
eTestAreaExtent <- extent(-135.0,-105.0, 59.995,60.005) # Creates a 12 row subimage |
|
37 |
eTestAreaExtent <- extent(-135.2,-100.2, 59.995,60.005) # Creates a 12 row subimage |
|
38 |
#eTestAreaExtent <- extent(-135.0,-105.0, 59.990,60.010) # Creates a 24 row subimage |
|
38 | 39 |
|
39 | 40 |
# Extract a sub image corresponding to the selected extent. |
40 | 41 |
# Two different alternatives: |
Also available in: Unified diff
With correct CEDM input image filename.