From b0e529ff49dfa52568fe7c5e6e76439a83c62840 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 13 Nov 2019 16:22:17 +0100 Subject: Improve citation --- tests/testthat/test_tests.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test_tests.R b/tests/testthat/test_tests.R index bdc72f08..ddf8e1a0 100644 --- a/tests/testthat/test_tests.R +++ b/tests/testthat/test_tests.R @@ -6,7 +6,8 @@ test_that("The lack-of-fit test works and can be reproduced using nls", { loftest_mkin <- loftest(f_2_mkin) - # This code is inspired by Ritz and Streibig (2008) Nonlinear Regression using R, p. 64 + # This code is a slightly modified version of that given in Ritz and Streibig + # (2008) Nonlinear Regression using R, p. 64 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