From a8ff8bed72dc537fe70cf2995ea769d3f519f877 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 25 Oct 2022 21:45:30 +0200 Subject: Change DFOP mixed model data in tests, updates --- tests/testthat/test_tests.R | 1 + 1 file changed, 1 insertion(+) (limited to 'tests/testthat/test_tests.R') 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) -- cgit v1.2.1