library(dplyr)
observed <- f_dose_observed(df2, visitview2, showplot = FALSE)
vf <- observed$vf
vf1 <- vf %>% filter(kit == 3)
di_fit <- f_fit_di(vf1, model = "linear mixed-effects model", nreps = 200)
Run the code above in your browser using DataLab