set.seed(2)
phi <- 0.5 # singing rate
tau <- 1 # EDR by strata
dur <- 10 # simulation duration
tbr <- c(2, 4, 6, 8, 10) # time intervals
rbr <- c(0.5, 1, 1.5, Inf) # counting radii
l <- bsims_init(10, 0.5, 1)# landscape
p <- bsims_populate(l, 10) # population
e <- bsims_animate(p, # events
vocal_rate=phi, duration=dur)
d <- bsims_detect(e, # detections
tau=tau)
x <- bsims_transcribe(d, # transcription
tint=tbr, rint=rbr)
estimate(x)
Run the code above in your browser using DataLab