Based on the disturbance type and the shapes of the four remote sensing bands, a vector of averaged parameters is produced. Which bands are included in the average depends on both the predicted disturbance type and the shapes of the four bands.
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(ShapeSelectForest)
Loading required package: coneproj
Loading required package: raster
Loading required package: sp
Loading required package: rgdal
rgdal: version: 1.1-10, (SVN revision 622)
Geospatial Data Abstraction Library extensions to R successfully loaded
Loaded GDAL runtime: GDAL 1.11.3, released 2015/09/16
Path to GDAL shared files: /usr/share/gdal/1.11
Loaded PROJ.4 runtime: Rel. 4.9.2, 08 September 2015, [PJ_VERSION: 492]
Path to PROJ.4 shared files: (autodetected)
Linking to sp version: 1.2-3
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/ShapeSelectForest/flat2parameter.Rd_%03d_medium.png", width=480, height=480)
> ### Name: flat2parameter
> ### Title: flat2parameter
> ### Aliases: flat2parameter
> ### Keywords: models
>
> ### ** Examples
>
> # define years
> years <- c(2001:2010)
>
> # define parameters
> all.shapes <- c(1, 4, 5, 3)
> all.dyrs <- c(2001, 0, 2004, 2004)
> all.durs <- c(1, 0, 3, 5)
> all.mags <- c(100, 0, 1000, 1500)
> flat.pred <- 5
>
> # call flat2parameter
> ans <- flat2parameter(years = years, all.shapes = all.shapes, all.durs = all.durs,
+ all.dyrs = all.dyrs, all.mags = all.mags, mtbs = mtbs, flat.pred = flat.pred)
>
>
>
>
>
> dev.off()
null device
1
>