aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/saem.R4
1 files changed, 2 insertions, 2 deletions
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)))
}
}
}

Contact - Imprint