Fix typos in tests

PLN-team · Feb 20, 2024 · 147a5f5 · 147a5f5
1 parent c8eb7c3
commit 147a5f5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-ziplnnetworkfamily.R b/tests/testthat/test-ziplnnetworkfamily.R
@@ -116,7 +116,7 @@ test_that("ZIPLNnetwork: matrix of penalties work", {
   expect_true(inherits(myPLN$plot_objective(), "ggplot"))
   expect_true(inherits(myPLN$plot_stars(), "ggplot"))
 
-  ## missspecification of penlaty weights should induce errors
+  ## misspecification of penalty weights should induce errors
   ## not symmetric
   W <- diag(1, p, p)
   W[upper.tri(W)] <- runif(p*(p-1)/2, min = 1, max = 5)
@@ -126,7 +126,7 @@ test_that("ZIPLNnetwork: matrix of penalties work", {
   W <- matrix(1, p + 1, p)
   expect_error(PLNnetwork(Abundance ~ 1, data = trichoptera, control = PLNnetwork_param(penalty_weights = W)))
 
-  ## not-positive entries
+  ## nonpositive entries
   W <- matrix(0, p, p)
   expect_error(PLNnetwork(Abundance ~ 1, data = trichoptera, control = PLNnetwork_param(penalty_weights = W)))