R/test_scripts.R

# fn <- "I:/projects/fire/victoria/input/GLDAS_bilinear/GLDAS_V21_8d_2000-01-09.tif"
# rb <- brick(fn)
# names(rb)
# cols <- colorRampPalette(RColorBrewer::brewer.pal(11, "Spectral"))
# vis_rasterbrick(rb)
# vis_rasterbrick(rb, bands = c(1,3,5,7), outfn = "vis_bands2.pdf", cols = cols, save = TRUE)
xuzhenwu/xu documentation built on Oct. 15, 2023, 10:32 a.m.