fixed wrong labelling of predicted times in msm

models/msm/fit.R

@@ -94,6 +94,7 @@ df_posteriors <- tibble(
   ) %>%
   mutate("2" = 0) %>%
   filter(t == config$t_out_msm + .5) %>%
+  mutate(t = config$t_out_msm) %>%
   gather(GOSE, probability, as.character(1:8)) %>%
   arrange(gupi, t, GOSE)