Merge pull request #34 from nutriverse/dev

test calculate_relative_tem; fix #28
nutriverse · Dec 18, 2024 · c015368 · c015368
2 parents f018889 + 344e7f2
commit c015368
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 7 deletions.
diff --git a/R/05_calculate_relative_tem.R b/R/05_calculate_relative_tem.R
@@ -19,13 +19,18 @@
 #'
 #'   x <- smartStdLong[smartStdLong$measure_type == "weight", ]
 #'
-#'   mean_value <- calculate_mean(measures = x$measure_value,
-#'                                index = x[ , "observer"])
-#'
-#'   rel_tem <- calculate_relative_tem(tem = tem, mean_value = mean_value)
+#'   mean_value <- calculate_mean(
+#'     measures = x$measure_value, index = x[ , "observer"]
+#'   )
+#'
+#'   rel_tem <- calculate_relative_tem(
+#'     tem = tem$tem, mean_value = mean_value$mean
+#'   )
+#'   
 #'   rel_tem
 #'
 #' @export
+#' @rdname calculate_relative_tem
 #'
 
 calculate_relative_tem <- function(tem, mean_value) {
@@ -35,3 +40,4 @@ calculate_relative_tem <- function(tem, mean_value) {
   ## Return output
   relative_tem
 }
+
diff --git a/man/calculate_relative_tem.Rd b/man/calculate_relative_tem.Rd
diff --git a/tests/testthat/test-05_calculate_relative_tem.R b/tests/testthat/test-05_calculate_relative_tem.R
@@ -0,0 +1,17 @@
+# Tests for calculate_relative_tem ---------------------------------------------
+
+tem <- calculate_tem_cohort(
+  df = smartStd, m1 = "weight1", m2 = "weight2", index = "observer", n = 10
+)
+
+x <- smartStdLong[smartStdLong$measure_type == "weight", ]
+
+mean_value <- calculate_mean(
+  measures = x$measure_value, index = x[ , "observer"]
+)
+
+rel_tem <- calculate_relative_tem(tem = tem$tem, mean_value = mean_value$mean)
+
+test_that("calculate_relative_tem works as expected", {
+  expect_type(rel_tem, "double")
+})