phi <- 0.5 # singing rate
tau <- 1:3 # EDR by strata
dur <- 10 # simulation duration
tbr <- c(3, 5, 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, 1) # 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)
## next locations
head(get_nests(p))
head(get_nests(e))
head(get_nests(d))
head(get_nests(x))
## abundance
get_abundance(p)
get_abundance(e)
get_abundance(d)
get_abundance(x)
## density
get_density(p)
get_density(e)
get_density(d)
get_density(x)
## events
head(get_events(e))
head(get_events(d))
head(get_events(x))
## detections
head(get_detections(d))
head(get_detections(x))
get_table(x, "removal")
get_table(x, "visits")
Run the code above in your browser using DataLab