
--
You received this message because you are subscribed to the Google Groups "distance-sampling" group.
To unsubscribe from this group and stop receiving emails from it, send an email to distance-sampl...@googlegroups.com.
To post to this group, send email to distance...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/distance-sampling/CANwG95K6Z2j%3D82t0oL15HZxXBXWnddFR_Tf5p8unCVXhm6sroA%40mail.gmail.com.
For more options, visit https://groups.google.com/d/optout.
-- Eric Rexstad Research Unit for Wildlife Population Assessment Centre for Research into Ecological and Environmental Modelling University of St. Andrews St. Andrews Scotland KY16 9LZ +44 (0)1334 461833 The University of St Andrews is a charity registered in Scotland : No SC013532
To view this discussion on the web visit https://groups.google.com/d/msgid/distance-sampling/56DEB1FA.70001%40st-andrews.ac.uk.
For more options, visit https://groups.google.com/d/optout.
To view this discussion on the web visit https://groups.google.com/d/msgid/distance-sampling/56DEE7FA.7080809%40gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/distance-sampling/CANwG95%2BVP4z3_M6KSsx4pABWn8H9j3dtQv64fQCnRDz0_FGiyg%40mail.gmail.com.
For more options, visit https://groups.google.com/d/optout.
Is there any way to specify the estimation method?
formula = ~as.factor(data$size)That's essentially correct John. Here's an example from our
vignette on minke whales
whales$stratum <- ifelse(whales$Region.Label=="North", "N", "S")
whale.strat.covariate <- ds(whales, truncation=whale.trunc, quiet=TRUE,
formula = ~as.factor(stratum),
key="hr", adjustment=NULL)--
You received this message because you are subscribed to the Google Groups "distance-sampling" group.
To unsubscribe from this group and stop receiving emails from it, send an email to distance-sampl...@googlegroups.com.
To post to this group, send email to distance...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/distance-sampling/68071b57-c029-4098-bcd2-2aad50f55d88%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
John
Not exactly trivial. Here's some poorly documented R code working with the online crabeater seal data.
It performs the log(group size) vs Pr(detection) regression. Then it performs back-calculation to derive a point estimate of expected group size when detection probability=1.
However, the hard part is producing a measure of precision for that point estimate. You need a measure of precision (a variance) so that you can propagate the uncertainty of the detection function, encounter rate AND expected group size to produce overall uncertainty in your estimate of abundance.
I've take an easy case here, with a half-normal detection function model without adjustment terms. If you had a more complex model, you would need more sophistication in the computation of sigma and phats.
library(Distance)
seals <- read.csv(file =
MailScanner has detected a possible fraud attempt from "distancesampling.org" claiming to be "http://distancesampling.org/R/vignettes/crabbieMCDS.csv")
halfnorm <- ds(seals, adjustment = NULL)
plot(halfnorm)
table(seals$size) # not a good example because there is
little variation in school size
sigma <- exp(halfnorm$ddf$par[1])
phats <- exp(-seals$distance^2/(2 * sigma^2))
log.schools <- log(seals$size)
size.regr <- lm(log.schools ~ phats)
my.value <- data.frame(phats=c(1))
log.expected.school.size <- predict(size.regr, se.fit
= TRUE, newdata = my.value)
expected.school.size <-
exp(log.expected.school.size$fit)
term1.for.var <- log.expected.school.size$se.fit^2
var.expected.school.size <- expected.school.size^2 *
term1.for.var
se.expected.school.size <-
sqrt(var.expected.school.size)
To view this discussion on the web visit https://groups.google.com/d/msgid/distance-sampling/75f62c56-90e0-4b0a-97b9-f6d8a28094d8%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.