# \donttest{
data(ptdata.dual)
xx <- ddf(mrmodel=~glm(formula=~distance),
dsmodel = ~cds(key="hn", formula = ~1),
data = ptdata.dual, method = "io", meta.data = list(point=TRUE))
summary(xx)
plot(xx,main="Simulated point count data")
# }
Run the code above in your browser using DataLab