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

Description Usage Arguments Value Examples

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

1
2
3

rtControlGrid(aGrid, vpControlF = NULL, vpControlM = NULL,
  pControl = NULL, mGridControlModifier = NULL, iControlBorder = 0,
  verbose = TRUE)

`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

aGrid updated array of y,x,sex,age

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))