aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-12-09 18:19:09 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2020-12-09 18:19:09 +0100
commitb0341af402271a1339308ba930c12530f62d4cf8 (patch)
treef25975420c46101833ed52d4a95fa7aed158a6b3 /R
parentaf82f9d1b263d43e7f22f0c8cfd1064a8f5a25e3 (diff)
Add more tests and fix HS in saem
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