reupload hall data and tests

walterwilliamson · Nov 30, 2023 · c36c4bc · c36c4bc
1 parent 9e80282
commit c36c4bc
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 26 deletions.
diff --git a/data/example_data_hall.rda b/data/example_data_hall.rda
diff --git a/data/example_meals_hall.rda b/data/example_meals_hall.rda
diff --git a/tests/testthat/test-meals.R b/tests/testthat/test-meals.R
@@ -1,26 +1,25 @@
-# # Test on one subject data
-# test_hall = example_data_hall[example_data_hall$id == '2133-010', ]
-# test_meals = example_meals_hall[example_meals_hall$id == '2133-010', ]
-# out = meal_metrics(test_hall, test_meals, interpolate = TRUE, adjust_mealtimes = TRUE)
-#
-#
-# # delta G
-# test_that("no changes on Hall 2133-010 for delta G", {
-#   expect_equal(out$deltag[1], 42.1, tolerance = 0.2)
-#   expect_equal(out$deltag[2], 25.0, tolerance = 0.2)
-#   expect_equal(out$deltag[3], 37.2, tolerance = 0.2)
-# })
-#
-# # delta T
-# test_that("no changes on Hall 2133-010 for delta T", {
-#   expect_equal(out$deltat[1], 60, tolerance = 0.2)
-#   expect_equal(out$deltat[2], 45, tolerance = 0.2)
-#   expect_equal(out$deltat[3], 155, tolerance = 0.2)
-# })
-#
-# # delta G
-# test_that("no changes on Hall 2133-010 for baseline recovery", {
-#   expect_equal(out$basereco[1], 0.741, tolerance = 0.2)
-#   expect_equal(out$basereco[2], 1.88, tolerance = 0.2)
-#   expect_equal(out$basereco[3], 0.918, tolerance = 0.2)
-# })
+# Test on one subject data
+test_hall = example_data_hall[example_data_hall$id == '2133-018', ]
+test_meals = example_meals_hall[example_meals_hall$id == '2133-018', ]
+out = meal_metrics(test_hall, test_meals, interpolate = TRUE, adjust_mealtimes = TRUE)
+
+# delta G
+test_that("no changes on Hall 2133-018 for delta G", {
+  expect_equal(out$deltag[1], 97.8, tolerance = 0.2)
+  expect_equal(out$deltag[2], 171, tolerance = 0.2)
+  expect_equal(out$deltag[3], 77.6, tolerance = 0.2)
+})
+
+# delta T
+test_that("no changes on Hall 2133-018 for delta T", {
+  expect_equal(out$deltat[1], 80, tolerance = 0.2)
+  expect_equal(out$deltat[2], 75, tolerance = 0.2)
+  expect_equal(out$deltat[3], 75, tolerance = 0.2)
+})
+
+# delta G
+test_that("no changes on Hall 2133-018 for baseline recovery", {
+  expect_equal(out$basereco[1], 0.378, tolerance = 0.2)
+  expect_equal(out$basereco[2], 0.429, tolerance = 0.2)
+  expect_equal(out$basereco[3], 0.670, tolerance = 0.2)
+})