# \donttest{
library(Distance)
library(dsm)
library(tweedie)
# load the Gulf of Mexico dolphin data (see ?mexdolphins)
data(mexdolphins)
# fit a detection function and look at the summary
hr.model <- ds(distdata, truncation=6000,
key = "hr", adjustment = NULL)
# fit a simple smooth of x and y with a Tweedie response with estimated
# p parameter
mod1 <- dsm(count~s(x, y), hr.model, segdata, obsdata, family=tw())
rqgam_check(mod1)
# }
Run the code above in your browser using DataLab