# dose vector
dose <- c(0, 0.1, 0.4)
# outcome vector
outcome <- c(1, 1.1, 1.5)
# transforms
transform1 <- function(x) x
transform2 <- function (x) x
theta <- sharp_double_statistic(z = dose, r = outcome, q1 = transform1,
q2 = transform2)
Run the code above in your browser using DataLab