diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-21 14:34:45 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-02-21 14:50:27 +0100 |
| commit | d89e3d22eb9dc383897b09e9c5aa1b57f65cdbf0 (patch) | |
| tree | e81237fcbd996390eadd439295f2fb4b3874b0ab /R/mkinpredict.R | |
| parent | f134599b4d2cd3558b887b7f06faf1dfb599196e (diff) | |
Add the logistic model
Diffstat (limited to 'R/mkinpredict.R')
| -rw-r--r-- | R/mkinpredict.R | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/R/mkinpredict.R b/R/mkinpredict.R index 8e0823a8..c36d724a 100644 --- a/R/mkinpredict.R +++ b/R/mkinpredict.R @@ -1,4 +1,4 @@ -# Copyright (C) 2010-2016,2018 Johannes Ranke +# Copyright (C) 2010-2016,2018,2019 Johannes Ranke # Some lines in this code are copyright (C) 2013 Eurofins Regulatory AG # Contact: jranke@uni-bremen.de @@ -83,7 +83,11 @@ mkinpredict.mkinmod <- function(x, evalparse(parent.name), evalparse(paste("k", parent.name, "bound", sep="_")), evalparse(paste("k", sub("free", "bound", parent.name), "free", sep="_")), - evalparse(paste("k", parent.name, "sink", sep="_"))) + evalparse(paste("k", parent.name, "sink", sep="_"))), + logistic = logistic.solution(outtimes, + evalparse(parent.name), + evalparse("kmax"), evalparse("k0"), + evalparse("r")) ) out <- data.frame(outtimes, o) names(out) <- c("time", sub("_free", "", parent.name)) |