From b0341af402271a1339308ba930c12530f62d4cf8 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 9 Dec 2020 18:19:09 +0100 Subject: Add more tests and fix HS in saem --- R/saem.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R') diff --git a/R/saem.R b/R/saem.R index 88b8e172..fda5569e 100644 --- a/R/saem.R +++ b/R/saem.R @@ -269,7 +269,7 @@ saemix_model <- function(object, solution_type = "auto", transformations = c("mk k1 = exp(psi[id, 1]) odeini_fixed * ifelse(t <= tb, exp(- k1 * t), - exp(- k1 * t) * exp(- exp(psi[id, 2]) * (t - tb))) + exp(- k1 * tb) * exp(- exp(psi[id, 2]) * (t - tb))) } } } else { @@ -315,7 +315,7 @@ saemix_model <- function(object, solution_type = "auto", transformations = c("mk k1 = exp(psi[id, 2]) psi[id, 1] * ifelse(t <= tb, exp(- k1 * t), - exp(- k1 * t) * exp(- exp(psi[id, 3]) * (t - tb))) + exp(- k1 * tb) * exp(- exp(psi[id, 3]) * (t - tb))) } } } -- cgit v1.2.1