From 58a5bf9074a25e2877fa0eb87bf5e58669c2c23c Mon Sep 17 00:00:00 2001 From: Matthew Fidler Date: Sat, 7 Sep 2024 10:29:39 -0500 Subject: [PATCH] Fix tests --- tests/testthat/_snaps/poped/pheno-pred.svg | 70 +++++----- tests/testthat/_snaps/poped/pred-example1.svg | 44 +++---- tests/testthat/_snaps/poped/pred-example2.svg | 124 +++++++++--------- tests/testthat/test-poped.R | 2 +- 4 files changed, 120 insertions(+), 120 deletions(-) diff --git a/tests/testthat/_snaps/poped/pheno-pred.svg b/tests/testthat/_snaps/poped/pheno-pred.svg index decf9405..40818c00 100644 --- a/tests/testthat/_snaps/poped/pheno-pred.svg +++ b/tests/testthat/_snaps/poped/pheno-pred.svg @@ -21,46 +21,42 @@ - - + + - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + -0 -10 -20 -30 -40 - - - - - - - - -0 -10 -20 -Time +41.00 +41.25 +41.50 + + + + + + +0 +10 +20 +Time Model Predictions Group @@ -72,6 +68,6 @@ Group: 1 Group: 2 -pheno_pred +pheno_pred diff --git a/tests/testthat/_snaps/poped/pred-example1.svg b/tests/testthat/_snaps/poped/pred-example1.svg index 9f9308a7..89c96366 100644 --- a/tests/testthat/_snaps/poped/pred-example1.svg +++ b/tests/testthat/_snaps/poped/pred-example1.svg @@ -27,33 +27,33 @@ - - - - - - - - - - - - + + + + + + + + + + + + 0.0 -0.1 -0.2 -0.3 -0.4 -0.5 +0.1 +0.2 +0.3 +0.4 +0.5 - - - - - + + + + + diff --git a/tests/testthat/_snaps/poped/pred-example2.svg b/tests/testthat/_snaps/poped/pred-example2.svg index f32fec9e..64ace99f 100644 --- a/tests/testthat/_snaps/poped/pred-example2.svg +++ b/tests/testthat/_snaps/poped/pred-example2.svg @@ -21,88 +21,92 @@ - - + + - - - - - - - + + + + + + + - - + + - - - - - - - + + + + + + + - - + + - - -Group: 1 + + +Group: 1 - - + + - - -Group: 2 + + +Group: 2 - - - - - - -0 -50 -100 -150 -200 -250 - - - - - - -0 -50 -100 -150 -200 -250 --0.0025 -0.0000 -0.0025 - - - -Time + + + + + + +0 +50 +100 +150 +200 +250 + + + + + + +0 +50 +100 +150 +200 +250 +0.0 +0.2 +0.4 +0.6 +0.8 + + + + + +Time Model Predictions -pred-example2 +pred-example2 diff --git a/tests/testthat/test-poped.R b/tests/testthat/test-poped.R index 307abd18..69ec1547 100644 --- a/tests/testthat/test-poped.R +++ b/tests/testthat/test-poped.R @@ -292,7 +292,7 @@ if (requireNamespace("PopED", quietly=TRUE)) { PI=TRUE, separate.groups=TRUE, model_num_points = 300, - sample.times = FALSE) + sample.times = FALSE)) dat <- model_prediction(db,DV=TRUE)