#Point transect example
shapefile.name <- system.file("extdata", "TrackExample.shp", package = "dssd")
region <- make.region(region.name = "study area",
shape = shapefile.name)
design <- make.design(region = region,
transect.type = "point",
design = "random",
samplers = 25,
design.angle = 45,
edge.protocol = "minus",
truncation = 3)
# Generate a single survey instance
survey <- generate.transects(design)
plot(region, survey, covered.area = TRUE)
#Line transect example
# Define the design
design <- make.design(region = region,
transect.type = "line",
design = c("systematic"),
line.length = 1000,
design.angle = c(179),
edge.protocol = "minus",
truncation = 1)
# Create a single set of transects to check
survey <- generate.transects(design)
plot(region, survey, covered.area = TRUE)
Run the code above in your browser using DataLab