if (FALSE) {
abun.lower <- c(15,5,2,7,4,8,6,0.01,6)
set.seed(2)
(abun.higher <- rpois(27, lambda=4))
abun.higher[1] <- 0.001
sum(ext.polls)
## note: external abundances do not sum up; this is intentional!!
r2dexternal(2, Safariland, abun.higher=abun.higher, abun.lower=abun.lower)
r2dexternal(2, Safariland, abun.higher=abun.higher)
vaznullexternal(2, Safariland, abun.higher=abun.higher, abun.lower=abun.lower)
}
Run the code above in your browser using DataLab