aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_tests.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-10-25 21:45:30 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2022-10-25 21:45:30 +0200
commita8ff8bed72dc537fe70cf2995ea769d3f519f877 (patch)
tree781e776ea30c95392c0e96df7e42ae7709d32cb3 /tests/testthat/test_tests.R
parent92bd47bf45cebe660c5e7f392a4ee19f704d8a19 (diff)
Change DFOP mixed model data in tests, updates
Diffstat (limited to 'tests/testthat/test_tests.R')
-rw-r--r--tests/testthat/test_tests.R1
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/testthat/test_tests.R b/tests/testthat/test_tests.R
index 39649223..caa0f70a 100644
--- a/tests/testthat/test_tests.R
+++ b/tests/testthat/test_tests.R
@@ -8,6 +8,7 @@ test_that("The lack-of-fit test works and can be reproduced using nls", {
# This code is a slightly modified version of that given in Ritz and Streibig
# (2008) Nonlinear Regression using R, p. 64
+ f_2_anova <- lm(value ~ as.factor(time), data = subset(DFOP_par_c, name == "parent"))
Q <- as.numeric(- 2 * (logLik(f_2_nls) - logLik(f_2_anova)))
df.Q <- df.residual(f_2_nls) - df.residual(f_2_anova)
p_nls <- 1 - pchisq(Q, df.Q)

Contact - Imprint