data <- data.frame(delta = c(0, 0, 1, 1), Delta = c(0, 1, 0, 1),
L = c(NA, NA, 1, 1.5), R = c(NA, 3, 2, 3),
time = c(4, 5, 6, 7))
mod_frydman <- msm_frydman(data)
visualise_data(data, mod_frydman)
Run the code above in your browser using DataLab