## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab