# \donttest{
library(mrds)
data(book.tee.data)
egdata <- book.tee.data$book.tee.dataframe
result.io.fi <- ddf(mrmodel=~glm(~distance), data = egdata, method = "io.fi",
meta.data = list(width = 4))
# just plot everything
plot(result.io.fi)
# Plot primary and secondary unconditional detection functions on one page
# and primary and secondary conditional detection functions on another
plot(result.io.fi,which=c(1,2,5,6),pages=2)
# }
Run the code above in your browser using DataLab