From d5a30175649e2812881c3b1cdba231e2b12b41da Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 21 Feb 2019 15:11:05 +0100 Subject: Remove unused code --- build.log | 2 +- man/logistic.solution.Rd | 1 - tests/testthat/test_logistic.R | 1 - 3 files changed, 1 insertion(+), 3 deletions(-) diff --git a/build.log b/build.log index 79c00855..6831459d 100644 --- a/build.log +++ b/build.log @@ -6,5 +6,5 @@ * checking for LF line-endings in source and make files and shell scripts * checking for empty or unneeded directories * looking to see if a ‘data/datalist’ file should be added -* building ‘mkin_0.9.47.6.tar.gz’ +* building ‘mkin_0.9.48.1.tar.gz’ diff --git a/man/logistic.solution.Rd b/man/logistic.solution.Rd index 396e09ef..67e60983 100644 --- a/man/logistic.solution.Rd +++ b/man/logistic.solution.Rd @@ -53,7 +53,6 @@ logistic.solution(t, parent.0, kmax, k0, r) sampling_times = c(0, 1, 3, 7, 14, 28, 60, 90, 120) parms_logistic <- c(kmax = 0.08, k0 = 0.0001, r = 0.2) - parms_logistic_optim <- c(parent_0 = 100, parms_logistic) d_logistic <- mkinpredict(logistic, parms_logistic, c(parent = 100), sampling_times) diff --git a/tests/testthat/test_logistic.R b/tests/testthat/test_logistic.R index 1ea1013b..5cc00fd3 100644 --- a/tests/testthat/test_logistic.R +++ b/tests/testthat/test_logistic.R @@ -22,7 +22,6 @@ logistic <- mkinmod(parent = mkinsub("logistic")) sampling_times = c(0, 1, 3, 7, 14, 28, 60, 90, 120) parms_logistic <- c(kmax = 0.08, k0 = 0.0001, r = 0.2) -parms_logistic_optim <- c(parent_0 = 100, parms_logistic) d_logistic <- mkinpredict(logistic, parms_logistic, c(parent = 100), sampling_times) -- cgit v1.2.1