data <- tibble::tibble(
id = c(rep("P1", 6)),
x = c(1, 7, 30, 90, 180, 365), # delays
y = c(0.9, 0.5, 0.3, 0.2, 0.1, 0.05) # indifference points
)
check_unsystematic(data, ll = 1, c1 = 0.2, c2 = 0.1)
Run the code above in your browser using DataLab