# NOT RUN {
library(raster)
## Byte
ras <- raster(ncol = 10, nrow = 10)
ras[] <- 1:100
assessDataTypeGDAL(ras)
ras[] <- c(NA, 2:100)
assessDataTypeGDAL(ras)
##Int16
ras <- raster(ncol = 10, nrow = 10)
ras <- setValues(ras, -1:98)
assessDataTypeGDAL(ras)
ras[] <- c(NA, -1:97)
assessDataTypeGDAL(ras)
ras[] <- round(runif(100, min = -32767, max = 32767))
assessDataTypeGDAL(ras)
## UInt16
ras <- raster(ncol = 10, nrow = 10)
ras[] <- round(runif(100, min = 64000, max = 65000))
assessDataTypeGDAL(ras)
## UInt32
ras <- raster(ncol = 10, nrow = 10)
ras[] <- round(runif(100, min = 0, max = 500000000))
assessDataTypeGDAL(ras)
ras[14] <- NA
assessDataTypeGDAL(ras)
## Int32
ras <- raster(ncol = 10, nrow = 10)
ras[] <- round(runif(100, min = -200000000, max = 200000000))
assessDataTypeGDAL(ras)
ras[14] <- NA
assessDataTypeGDAL(ras)
## Float32
ras <- raster(ncol = 10, nrow = 10)
ras[] <- runif(100, min = -10, max = 87)
assessDataTypeGDAL(ras)
ras <- raster(ncol = 10, nrow = 10)
ras[] <- round(runif(100, min = -3.4e+26, max = 3.4e+28))
assessDataTypeGDAL(ras)
ras <- raster(ncol = 10, nrow = 10)
ras[] <- round(runif(100, min = 3.4e+26, max = 3.4e+28))
assessDataTypeGDAL(ras)
ras <- raster(ncol = 10, nrow = 10)
ras[] <- round(runif(100, min = -3.4e+26, max = -1))
assessDataTypeGDAL(ras)
# }
Run the code above in your browser using DataLab