sCd2_DR_ <- doseResponse(sCd2, pool.replicate = FALSE)
sCd2_DR <- doseResponse(sCd2, pool.replicate = TRUE)
sCd2_DRm <- doseResponse(sCd2, pool.replicate = TRUE, target.time = c(0,3,7,10,14,38,52))
rCd2_DR_ <- doseResponse(rCd2, pool.replicate = TRUE)
rCd2_DR <- doseResponse(rCd2, pool.replicate = FALSE)
rCd2_DRm <- doseResponse(rCd2, pool.replicate = TRUE, target.time = c(7,10,14,38,52))
gCdd_DR <- doseResponse(gCdd, pool.replicate = FALSE)
gCdd_DR_case1 <- doseResponse(gCdd, pool.replicate = FALSE, target.time = c(0, 14))
gCdd_DR_case0 <- doseResponse(gCdd, pool.replicate = FALSE, target.time = 0)

gCdd <- modelData(Cdd, type = "continuous")
gCddTT <- gCdd[gCdd$time == max(gCdd$time), ]