# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
convertDataBack <- function(id, time, amt, ii, evid, cmt, cmtDvid, dvidDvid, linNcmt = 0L, linKa = 0L, neq = 0L, replaceEvid = 5L, zeroDose2 = TRUE) {
.Call(`_babelmixr2_convertDataBack`, id, time, amt, ii, evid, cmt, cmtDvid, dvidDvid, linNcmt, linKa, neq, replaceEvid, zeroDose2)
}
popedFree <- function() {
.Call(`_babelmixr2_popedFree`)
}
popedSetup <- function(e, full) {
.Call(`_babelmixr2_popedSetup`, e, full)
}
popedSolveIdN2 <- function(theta, mt, iid, totn) {
.Call(`_babelmixr2_popedSolveIdN2`, theta, mt, iid, totn)
}
popedSolveIdN <- function(theta, mt, iid, totn) {
.Call(`_babelmixr2_popedSolveIdN`, theta, mt, iid, totn)
}
popedSolveIdME <- function(theta, umt, mt, ms, nend, id, totn) {
.Call(`_babelmixr2_popedSolveIdME`, theta, umt, mt, ms, nend, id, totn)
}
popedSolveIdME2 <- function(theta, umt, mt, ms, nend, id, totn) {
.Call(`_babelmixr2_popedSolveIdME2`, theta, umt, mt, ms, nend, id, totn)
}
transDv <- function(inDv, inCmt, cmtTrans, lambda, yj, low, high) {
.Call(`_babelmixr2_transDv`, inDv, inCmt, cmtTrans, lambda, yj, low, high)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.