aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-11-13 16:22:17 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-11-13 16:22:35 +0100
commitb0e529ff49dfa52568fe7c5e6e76439a83c62840 (patch)
treefc9052f2e1c561f5c6553716b40f2a5d71cfde5c /tests/testthat
parentf6385b071cee2c261da28bf98fd1599da1a30ddb (diff)
Improve citation
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_tests.R3
1 files changed, 2 insertions, 1 deletions
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)

Contact - Imprint