Update examples

doccstat · Apr 22, 2024 · 225565c · 225565c
1 parent 53bf24d
commit 225565c
Show file tree

Hide file tree

Showing 7 changed files with 15 additions and 13 deletions.
diff --git a/R/fastcpd.R b/R/fastcpd.R
@@ -409,7 +409,7 @@ fastcpd <- function(  # nolint: cyclomatic complexity
             include.mean = include_mean
           )$residuals
         }
-      } else if (family == "mean") {
+      } else if (family %in% c("mean", "variance", "meanvariance")) {
         residuals <- matrix(NA, nrow(data), ncol(data))
         segments <- c(0, cp_set, nrow(data))
         for (segments_i in seq_len(length(segments) - 1)) {

diff --git a/man/bitcoin.Rd b/man/bitcoin.Rd
diff --git a/man/fastcpd_meanvariance.Rd b/man/fastcpd_meanvariance.Rd
diff --git a/man/transcriptome.Rd b/man/transcriptome.Rd
diff --git a/tests/testthat/examples/data-bitcoin.txt b/tests/testthat/examples/data-bitcoin.txt
@@ -1,7 +1,8 @@
 \donttest{
 if (requireNamespace("ggplot2", quietly = TRUE)) {
-  ggplot2::ggplot(bitcoin, ggplot2::aes(x = date, y = price)) +
+  p <- ggplot2::ggplot(bitcoin, ggplot2::aes(x = date, y = price)) +
     ggplot2::geom_line()
+  print(p)
 
   result <- suppressWarnings(fastcpd.garch(
     diff(log(bitcoin$price[600:900])), c(1, 1),

diff --git a/tests/testthat/examples/data-transcriptome.txt b/tests/testthat/examples/data-transcriptome.txt
@@ -1,8 +1,5 @@
 \donttest{
-if (
-  requireNamespace("ggplot2", quietly = TRUE) &&
-    requireNamespace("gridExtra", quietly = TRUE)
-) {
+if (requireNamespace("ggplot2", quietly = TRUE)) {
   result <- fastcpd.mean(transcriptome$"10", trim = 0.005)
   summary(result)
   plot(result)
@@ -33,6 +30,8 @@ if (
     }
   )
 
-  gridExtra::grid.arrange(grobs = plots, ncol = 1, nrow = ncol(transcriptome))
+  if (requireNamespace("gridExtra", quietly = TRUE)) {
+    gridExtra::grid.arrange(grobs = plots, ncol = 1, nrow = ncol(transcriptome))
+  }
 }
 }
diff --git a/tests/testthat/examples/fastcpd_meanvariance_1.R b/tests/testthat/examples/fastcpd_meanvariance_1.R
@@ -12,4 +12,5 @@ if (requireNamespace("mvtnorm", quietly = TRUE)) {
     )
   )
   summary(result)
+  plot(result)
 }