op <- options(digits = 4)
data("birds", package = "TH.data")
### fit count transformation model with cloglog link
m_birds <- cotram(SG5 ~ AOT + AFS + GST + DBH + DWC + LOG, data = birds,
method = "cloglog")
### compute asymptotic confidence bands for the distribution function
### for the first oberservation
confband(m_birds, newdata = birds[1, ], type = "distribution")
options(op)
Run the code above in your browser using DataLab