## Not run:
# # define years
# years <- c(1984, 1986:2010)
#
# # define a folder for all outputs
# 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 f2a.raster
# ans1 <- f2a.raster(years = years, folder.in = folder.in, folder.out = folder.out,
# OUTPUT.fn <- "f2a_example.img", flat.pred.fn = flat.pred.fn, INPUT.bands = INPUT.bands)
#
# # create jpegs
# ans2 <- f2a.map.jpeg(years = years, folder = folder.out, OUTPUT.fn = "f2a_example.img")
# ## End(Not run)
Run the code above in your browser using DataLab