Remove unnecessary checks

doccstat · May 30, 2024 · 1f23c07 · 1f23c07
1 parent eeca55f
commit 1f23c07
Show file tree

Hide file tree

Showing 4 changed files with 27 additions and 37 deletions.
diff --git a/man/fastcpd_meanvariance.Rd b/man/fastcpd_meanvariance.Rd
diff --git a/src/fastcpd_class_nll.cc b/src/fastcpd_class_nll.cc
@@ -436,7 +436,7 @@ CostResult Fastcpd::get_nll_pelt_lasso(
  deviance = stats["deviance"];
  List out = cv_glmnet(
  data_segment.cols(1, data_segment.n_cols - 1),
- data_segment.col(0), // # nocov
+ data_segment.col(0),
  Named("family") = "gaussian"
  );
  colvec index_vec = as<colvec>(out["index"]),
@@ -497,7 +497,7 @@ CostResult Fastcpd::get_nll_pelt_mean(
  }
  const unsigned int segment_length = segment_end - segment_start + 1;
  return {
- {zeros<colvec>(p)}, // # nocov
+ {zeros<colvec>(p)},
  {zeros<mat>(segment_length, p)},
  std::log(2.0 * M_PI) * data_n_cols + log_det_sympd(variance_estimate) *
  (segment_length) / 2.0 + (
@@ -546,7 +546,7 @@ CostResult Fastcpd::get_nll_pelt_meanvariance(
  }
 
  return {
- {zeros<colvec>(p)}, // # nocov
+ {zeros<colvec>(p)},
  {mat()},
  (d * std::log(2.0 * M_PI) + d + log(det_value)) * segment_length / 2.0
  };

diff --git a/tests/testthat/examples/fastcpd_meanvariance_1.R b/tests/testthat/examples/fastcpd_meanvariance_1.R
@@ -1,16 +1,12 @@
-if (requireNamespace("mvtnorm", quietly = TRUE)) {
- set.seed(1)
- p <- 1
- result <- fastcpd.mv(
- rbind(
- mvtnorm::rmvnorm(300, mean = rep(0, p), sigma = diag(1, p)),
- mvtnorm::rmvnorm(400, mean = rep(10, p), sigma = diag(1, p)),
- mvtnorm::rmvnorm(300, mean = rep(0, p), sigma = diag(100, p)),
- mvtnorm::rmvnorm(300, mean = rep(0, p), sigma = diag(1, p)),
- mvtnorm::rmvnorm(400, mean = rep(10, p), sigma = diag(1, p)),
- mvtnorm::rmvnorm(300, mean = rep(10, p), sigma = diag(100, p))
- )
- )
- summary(result)
- plot(result)
-}
+set.seed(1)
+p <- 1
+result <- fastcpd.meanvariance(c(
+ rnorm(300, 0, 1),
+ rnorm(400, 10, 1),
+ rnorm(300, 0, 10),
+ rnorm(300, 0, 1),
+ rnorm(400, 10, 1),
+ rnorm(300, 10, 10)
+))
+summary(result)
+plot(result)
diff --git a/tests/testthat/test-examples-fastcpd_meanvariance_1.R b/tests/testthat/test-examples-fastcpd_meanvariance_1.R
@@ -1,7 +1,5 @@
 testthat::test_that(
  "examples/fastcpd_meanvariance_1.R", {
- testthat::skip_if_not_installed("mvtnorm")
-
  source("examples/fastcpd_meanvariance_1.R")
  testthat::expect_equal(result@cp_set, c(300, 700, 1001, 1300, 1700))
  }