## S3 method for class 'Indicator'
plot(x, ...)

## Warnings from GDAL/PROJ are suppressed.

## Brick with structural Essential Biodiversity Variables covering the
## extent of a location in the northern Amazon basin (Colombia):

path. <- system.file('amazon.grd', package = 'ecochange')
amazon <- suppressWarnings(brick(path.))

## Tree-cover layers in the 'amazon' brick are both formatted and
## deforested:
suppressWarnings(
    def <- deforest(amazon, names(amazon)[grepl('TC', names(amazon))],
                    ebv.vals = 0:100,
                    remnant.areas = TRUE, keep.ebv = TRUE, mc.cores = 2)
)

## Binary layers of Forest and non-forest areas (keep.ebv = FALSE):
suppressWarnings(
    def_bin <- deforest(amazon, names(amazon)[grepl('TC', names(amazon))],
                        ebv.vals = 0:100,
                        remnant.areas = TRUE, keep.ebv = FALSE, mc.cores = 2)
)

## Areas for both the binary and the continuous forest layers:

defareas <- suppressWarnings(gaugeIndicator(def_bin, ind = 'lsm_c_ca'))
defclasses <- suppressWarnings(gaugeIndicator(def, ind = 'lsm_c_ca'))

## Plot the indicators:

plot(defareas)
plot(defclasses)