PlotFSS: plotFSS

Description Usage Arguments Value Author(s) Examples

Description

Plotting method for FSS

Usage

1
2
3
4
  plotFSS(fssObj,...)
  
  ## Default S3 method:
plotFSS(fssObj,...)

Arguments

fssObj

an output of the FSS function.

option

selecting a displaying option.

cellIndices

selecting the cells for time series plotting.

dspSlices

selecting slices to display for outbreak overview.

titles

character string.

pause

logical. Whether or not pause between each plot.

...

Additional parameters

Value

A plot.

Author(s)

Adrien Ickowicz <Adrien.Ickowicz@csiro.au>, Ross Sparks <Ross.Sparks@csiro.au>, Thomas Lo <Thomas.Lo@csiro.au>

Maintainer: Adrien Ickowicz <Adrien.Ickowicz@csiro.au>

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
cellIndices = rbind(c(2,9),c(2,10),c(3,9),c(3,10),
                    c(7,5),c(7,6),c(8,6),c(8,7))
plotIte <- 8

dspSlices <- 1:10   # a vector containing time slices to be displayed

# allocate the first 24 months to find monthly means of each cell, and
# assuming 30 days for a month
test <- FSS(AEGISS_ixyt, num1Slice=30, num1Period=12, numPeriods=2, numX=10, numY=9, 
            plotIte=plotIte, cellIndices=cellIndices, data_poly=AEGISS_poly, lambda=0.9, 
            dspSlices=dspSlices, fillThreshold=0.95, colPoints="cyan")

plotFlags <- c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)


if (plotFlags[1]) plotFSS(test, option="full data", titles=c("AEGISS all data"), pause=TRUE)

if (plotFlags[2]) plotFSS(test, option="overall time series", titles=NULL, pause=TRUE)

if (plotFlags[3]) plotFSS(test, option="specific time series")

if (plotFlags[4]) plotFSS(test, option="possible outbreaks")

if (plotFlags[5]) plotFSS(test, option="overall tree")

if (plotFlags[6]) plotFSS(test, option="sub-trees")

if (plotFlags[7]) plotFSS(test, option="partitions")

if (plotFlags[8]) plotFSS(test, option="outbreak detection")

tempCellIndices = rbind(c(3,9),c(3,10))
if (plotFlags[9]) plotFSS(test, option="specific time series", cellIndices=tempCellIndices)

tempDspSlices <- 1:3   # a vector containing time slices to be displayed
if (plotFlags[10]) plotFSS(test, option="possible outbreaks", dspSlices=tempDspSlices)
  

ick003/RecurPart documentation built on May 18, 2019, 2:32 a.m.