LLsurface.secr(secrdemo.CL, xval = seq(0.16,0.40,0.02),
yval = 25:35, nlevels = 20)
## now verify MLE
## click on MLE and apparent `peak'
xy <- locator(2)
temp <- LLsurface.secr(secrdemo.CL, xval = xy$x,
yval = xy$y, plot = FALSE)
temp
Run the code above in your browser using DataLab