Merge pull request #83 from metrumresearchgroup/abbreviate-cwres

Abbreviate CWRES
metrumresearchgroup · May 22, 2024 · 5e05e1d · 5e05e1d
2 parents 940f3da + 1f61c37
commit 5e05e1d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/pm_axis_data.R b/R/pm_axis_data.R
@@ -30,7 +30,7 @@ pm_axis_data <- list(
     npde = "NPDE"
   ),
   title  = list(
-    cwres = "Conditional weighted residual",
+    cwres = "CWRES",
     cwresi = "CWRES with interaction",
     res = "Residual",
     wres = "Weighted residual",

diff --git a/tests/testthat/test-res_time.R b/tests/testthat/test-res_time.R
@@ -57,7 +57,7 @@ test_that("res time [PMP-TEST-053]", {
   p <- cwres_time(df)
   expect_is(p, "gg")
   expect_labels(p, "TIME", "CWRES")
-  expect_titles(p, "Time (hr)", "Conditional weighted residual")
+  expect_titles(p, "Time (hr)", "CWRES")
 
   p <- res_tad(df)
   expect_is(p, "gg")
@@ -77,7 +77,7 @@ test_that("res time [PMP-TEST-053]", {
   p <- cwres_tad(df)
   expect_is(p, "gg")
   expect_labels(p, "TAD", "CWRES")
-  expect_titles(p, "Time after dose (hr)", "Conditional weighted residual")
+  expect_titles(p, "Time after dose (hr)", "CWRES")
 
   p <- res_tafd(df)
   expect_is(p, "gg")
@@ -97,7 +97,7 @@ test_that("res time [PMP-TEST-053]", {
   p <- cwres_tafd(df)
   expect_is(p, "gg")
   expect_labels(p, "TAFD", "CWRES")
-  expect_titles(p, "Time after first dose (hr)", "Conditional weighted residual")
+  expect_titles(p, "Time after first dose (hr)", "CWRES")
 
 
 })