Hello Pedro, list,
(random: once upon a time I had a student at FCUL called Pedro Eça - is that you 🙂?)
I refer to transects AC and BC in the control area, and AI and BI in the impact area.
You can do all you are saying, but I point out several aspects that I am afraid question the usefulness of doing so:
-
Fair enough to assume detectability is the same in both areas (unless say impact was shooting birds say, then they be harder to spot after shooting them say)
-
Fair enough to use detectability classes
-
With just two bands, there's very limited options for detectability. Maybe a HN model, that is it. Results will be quite sensitive to whether the true detection function is truly half-normal or not, which is not
a good thing
-
I assume this is a design-based estimate, and so to estimate variance you have at best a sample size of two. No one would trust a variance based on two observations, and it will explode in cases where you had
a very different number of detections in transect Ax and Bx, and it will be untrustworthy small if you happen to have similar numbers just as a fluke
-
This leads to.... If you are making comparisons between impact and control, by species, and you assume detectability by species pooled across impact/control, the comparisons on density
are equivalent to the comparisons on the observed counts. This suggests that you will have little to no power to detect differences, and that power will be non-existent for low density species. If you only have 1 or 2 detections of a given species, and only
2 transects, the answer is there are no significant differences between impact and control. Think about it, is (0,1) different from (2,0), or even (3,1) from (0,0). Not really, these would be relatively fair results to observe if the same data generating mechanism
was in both control/impact sits, in other words, if there were no impact.
You can check it yourself. Below I pretend that the impact has a decrease of 80% of the birds (a Poisson mean of 1, vs 5 in the control). The power to detect that change is... (simulation below) 0.1 (not to mention that in almost half the cases, variance was
0; this will be less so if the true variability is over-dispersed, but still) - you have only a 10% chance of finding a (huge) effect/difference we know is real. This is really well below what I would consider reasonable. So... bottom-line, your goal of evaluating
whether there is an impact at the species level is simply not possible to be realistically evaluated with a sample size of 2 - distance sampling or no distance sampling involved... And probably if you use the code to see what happens with larger samples sizes,
you will not get much better. It is hard to find differences with sample sizes of 2.
Sorry, happy to be overruled. Code used is below if you want to try and change it a bit (e.g. change real differences)
Hope that this helps, even if it means that I don't think you can do what you probably set out to do. No omelets without eggs kind of thing...
Cheers,
T
set.seed(1656)
n<- 10000
teststat <- numeric(10000)
for (i in 1:n){
#mean 2
control <- rpois(2,5)
#mean 6
impact <- rpois(2,1)
# not the right test, as you would probably not use a t.test here
#then again, what would you use with a sample size of 2 ;)
if(var(control)==0 | var(impact)==0) {teststat[i] <-NA} else{
teststat[i] <- t.test(control,impact)$p.value}
}
# how many NA's because variance is exactly 0 - no (sensible) test possible.
teststatNA <- sum(
is.na(teststat))
teststatNA # how many non NA's
teststatnotNA <- sum(!
is.na(teststat))
# estimated power to detect a difference of 300% (mean 2 vs 6)
teststatnotNA
sum(teststat<0.05,na.rm=TRUE)/teststatnotNA