model averaging and region.N

questions concerning anlysis/theory using program DENSITY and R package secr. Focus on spatially-explicit analysis.

model averaging and region.N

Postby bgerber » Thu Dec 05, 2013 1:04 am

Dear all:

Is there a way to use model averaged density estimates to thus find the equivalent model averaged population size using the secr function region.N?

Thanks
Sincerely, Brian
bgerber
 
Posts: 24
Joined: Wed Dec 12, 2007 1:01 pm

Re: model averaging and region.N

Postby murray.efford » Thu Dec 05, 2013 1:11 am

Brian
Do you mean other than calculating it by hand? That shouldn't be too hard, given you have the estimates of N and their SE from region.N, and the relevant AIC. Admittedly it may be better to average on the log scale, which makes it slightly more tricky.
Murray
murray.efford
 
Posts: 712
Joined: Mon Sep 29, 2008 7:11 pm
Location: Dunedin, New Zealand

Re: model averaging and region.N

Postby bgerber » Thu Dec 05, 2013 1:13 am

Murray:

Sorry for not being specific. Yes, I was thinking of doing it on the log-scale.

Sincerely, Brian
bgerber
 
Posts: 24
Joined: Wed Dec 12, 2007 1:01 pm

Re: model averaging and region.N

Postby murray.efford » Thu Dec 05, 2013 1:25 am

I can't offer an immediate answer - maybe later. I see that region.N uses a function add.cl that is hidden. I'll paste the code below in case you're inspired to extract the transformation.
Murray

Code: Select all
add.cl <- function (df, alpha, loginterval, lowerbound = 0) {
## add lognormal or standard Wald intervals to dataframe with columns
## 'estimate' and 'SE.estimate'
## lowerbound added 2011-07-15
    z <- abs(qnorm(1-alpha/2))
    if (loginterval) {
        delta <- df$estimate - lowerbound
        df$lcl <- delta / exp(z * sqrt(log(1 + (df$SE.estimate /
                        delta)^2))) + lowerbound
        df$ucl <- delta * exp(z * sqrt(log(1 + (df$SE.estimate /
                        delta)^2))) + lowerbound
    }
    else {
        df$lcl <- pmax(lowerbound, df$estimate - z * df$SE.estimate)
        df$ucl <- df$estimate + z * df$SE.estimate
    }
    df
}
murray.efford
 
Posts: 712
Joined: Mon Sep 29, 2008 7:11 pm
Location: Dunedin, New Zealand


Return to analysis help

Who is online

Users browsing this forum: No registered users and 0 guests