correction in example for ZIPLNfit_sparse

PLN-team · Feb 8, 2024 · 7b9b05b · 7b9b05b
1 parent 3efa55a
commit 7b9b05b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/ZIPLNfit-S3methods.R b/R/ZIPLNfit-S3methods.R
@@ -122,10 +122,9 @@ isZIPLNfit_sparse <- function(Robject) {inherits(Robject, "ZIPLNfit_sparse")}
 #' @examples
 #' data(trichoptera)
 #' trichoptera <- prepare_data(trichoptera$Abundance, trichoptera$Covariate)
-#' fits <- ZIPLN(Abundance ~ 1, data = trichoptera, control = ZIPLN_param(penalty = 0.1))
-#' myNet <- getBestModel(fits)
+#' fit <- ZIPLN(Abundance ~ 1, data = trichoptera, control = ZIPLN_param(penalty = 0.1))
 #' \dontrun{
-#' plot(myNet)
+#' plot(fit)
 #' }
 #' @export
 plot.ZIPLNfit_sparse <-

diff --git a/R/ZIPLNfit-class.R b/R/ZIPLNfit-class.R
@@ -730,9 +730,10 @@ ZIPLNfit_fixed <- R6Class(
 #' # See other examples in function ZIPLN
 #' data(trichoptera)
 #' trichoptera <- prepare_data(trichoptera$Abundance, trichoptera$Covariate)
-#' myPLN <- ZIPLN(Abundance ~ 1, data = trichoptera, control=  ZIPLN_param(penalty = 0.2))
+#' myPLN <- ZIPLN(Abundance ~ 1, data = trichoptera, control=  ZIPLN_param(penalty = 1))
 #' class(myPLN)
 #' print(myPLN)
+#' plot(myPLN)
 #' }
 ZIPLNfit_sparse <- R6Class(
   classname = "ZIPLNfit_sparse",