diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-11 13:43:40 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-11 13:43:40 +0200 |
| commit | b36ae3d710858ee3ff2907eb2d780e0dff48a4f3 (patch) | |
| tree | b9e075d38233106465481c25b0a777ef043fb1c7 /R/mkinfit.R | |
| parent | 576fbc9d86f4db3d1be2fbd4e97b3fcd58f43c2b (diff) | |
Analytical solutions for all SFO variants
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 9c3f2baa..683a6b3d 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -297,6 +297,7 @@ mkinfit <- function(mkinmod, observed, # This is only used for simple decline models if (length(obs_vars) > 1) stop("Decline from maximum is only implemented for models with a single observed variable") + observed$name <- as.character(observed$name) means <- aggregate(value ~ time, data = observed, mean, na.rm=TRUE) t_of_max <- means[which.max(means$value), "time"] |