prediction <- matrix(c(0, 1), nrow = 1, dimnames = list(NULL, c("time", "A")))
derivs <- matrix(c(0, 1, 0.1), nrow = 1, dimnames = list(NULL, c("time", "A.A", "A.k1")))
attr(prediction, "deriv") <- derivs
p0 <- c(A = 1, k1 = 2)
mu <- c(newpoint = "A")
timepoint <- 0
datapointL2(p = c(p, newpoint = 2), prediction, mu, timepoint)
datapointL2(p = c(p, newpoint = 1), prediction, mu, timepoint)
datapointL2(p = c(p, newpoint = 0), prediction, mu, timepoint)
Run the code above in your browser using DataLab