## load previously fitted secr model with trap response
## and extract estimates of 'real' parameters for both
## naive (b = 0) and previously captured (b = 1) animals
data(secrdemo)
predict (secrdemo.b, newdata = data.frame(b=0:1))
temp <- predict (secrdemo.b, newdata = data.frame(b=0:1),
save = TRUE)
attr(temp, 'newdata')
Run the code above in your browser using DataLab