if (FALSE) {
# define years
years <- c(1984, 1986:2010)
# define a folder for all output
folder.in <- paste(system.file(package = "ShapeSelectForest"),
"extdata", "helpexamples", sep = "/")
folder.out <- getwd()
# define filenames
flat.pred.fn <- "MINI_FLATPRED.img"
b5.fn <- "MINI_B5.img"
fi.fn <- "MINI_FI.img"
nbr.fn <- "MINI_NBR.img"
ndvi.fn <- "MINI_NDVI.img"
INPUT.bands <- c(b5.fn, fi.fn, nbr.fn, ndvi.fn)
# call f2p.raster
ans <- f2p.raster(years = years, folder.in = folder.in, folder.out = folder.out,
OUTPUT.fn = "f2p_example.img", flat.pred.fn = flat.pred.fn, INPUT.bands = INPUT.bands)
}
Run the code above in your browser using DataLab