data(trichoptera)
trichoptera <- prepare_data(trichoptera$Abundance, trichoptera$Covariate)
myMixtures <- PLNmixture(Abundance ~ 1 + offset(log(Offset)),
data = trichoptera, control_main = list(smoothing = "forward", iterates = 1))
plot(myMixtures, reverse = TRUE)
Run the code above in your browser using DataLab