# rtControlGrid: first test of tsetse control In AndySouth/rtsetse: simulating tsetse fly populations

## Description

`rtControlGrid` simply kills off a constant proportion of adults. In a central control area.

## Usage

 ```1 2 3``` ```rtControlGrid(aGrid, vpControlF = NULL, vpControlM = NULL, pControl = NULL, mGridControlModifier = NULL, iControlBorder = 0, verbose = TRUE) ```

## Arguments

 `aGrid` array of y,x,sex,age `vpControlF` proportion by age of F to be killed by control (daily) age & sex dependent alternative to pControl `vpControlM` proportion by age of M to be killed by control (daily) age & sex dependent alternative to pControl `pControl` control independent of age & sex, proportion of adults to be killed by control (daily) age & sex INdependent alternative to vpControlF & vpControlM `mGridControlModifier` an optional grid to modify control. The control probability is multiplied by this. SO can use 0,1 grid for control/no control option. `iControlBorder` the number of cells around the edge where no control applied if there are insufficient cells in the passed grid, then it applies control to all cells (this allows small tests to be run) `verbose` print what it's doing T/F

## Value

aGrid updated array of y,x,sex,age

## Examples

 ```1 2 3 4 5``` ```aGrid <- rtCreateGrid(nY=3,nX=4,nAge=2,fill=1) aGridControlled <- rtControlGrid(aGrid, pControl=0.1) aGridControlled <- rtControlGrid(aGrid, pControl=0.1, iControlBorder=1) #testing age & sex dependent control aGridControlled <- rtControlGrid(aGrid, vpControlF=c(0.1,0.2), vpControlM=c(0.3,0.4)) ```

AndySouth/rtsetse documentation built on May 5, 2019, 6:02 a.m.