generate.design.pt: Point Transect Survey Design Specification
In DistanceDevelopment/WiSP: Wildlife Simulation Package (wisp)

Description Usage Arguments Details Value See Also Examples

Generates a point transect survey design, using the parameters in a ‘pars.design.pt’ object.

1	generate.design.pt(pars.design.pt, seed = NULL)

`pars.design.pt`	a line transect design parameter object returned by the function `setpars.design.pt`
`seed`	the number passed to set.seed() to initialise random number generator

Whereas setpars.design.pt sets up the rules (in a ‘pars.design.pt’ object) that are used to generate a covered region for a point transect survey, this function introduces randomness and generates an actual covered region. The function setpars.design.pt must have been run before generate.design.pt is run – to generate the ‘pars.design.pt’ object.

generate.design.pt returns an object of class 'design.pt´ which has the following elements:

`region`	object of class 'region´.
`n.transects`	number of transects. (The only point transect design currently implemented involves locating points at regular distances along "north-south" transects.)
`n.units`	number of survey points per transect.
`units.x`	vector of x-coordinates of the points.
`units.y`	vector of y-coordinates of the points.
`visual.range`	maximum distance from the point that is searched, i.e. the circular plot radius.

setpars.design.pt, plot.design.pt

pt.reg <- generate.region(x.length = 100, y.width = 50)
pt.dens <- generate.density(pt.reg)

#heterogeneous population
pt.poppars<-setpars.population(density.pop = pt.dens, number.groups = 1000, size.method = "poisson",
                               size.min = 1, size.max = 30, size.mean = 10, exposure.method = "beta",
                               exposure.min = 0, exposure.max = 1, exposure.mean = 0.4,
                               exposure.shape = 0.5, type.values=c("Male","Female"),
                               type.prob=c(0.48,0.52))
pt.pop<-generate.population(pt.poppars)

pt.despars<-setpars.design.pt(pt.reg, n.transects=8, n.units=32, visual.range=3.5)
pt.des<-generate.design.pt(pt.despars)
summary(pt.des)
plot(pt.des)