## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  warning = FALSE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
# install.packages("TTM")

## ----eval=FALSE---------------------------------------------------------------
# devtools::install_github("TChang-W/TTM")

## -----------------------------------------------------------------------------
library(TTM)

data(Retro_data)

## -----------------------------------------------------------------------------
fit <- RetroJM(
   data_long = Retro_data,
   id = "id",
   treatment = "A",
   outcome = "Y",
   covariates = c("X1", "X2"),
   os_time = "OS_time",
   death = "death",
   t_pros = "t_pros",
   random_effects = c("1", "A"),
   n_impute = 10,
   n_inner_knot = 3
 )

## -----------------------------------------------------------------------------
fit$pooled_longitudinal_model

## -----------------------------------------------------------------------------
plot_beta_mu(fit, xlim = c(0, quantile(Retro_data$OS_time, 0.7)), conf.level = 0.95)

## -----------------------------------------------------------------------------
plot_beta_A(fit, xlim = c(0, quantile(Retro_data$OS_time, 0.7)), conf.level = 0.95)

## -----------------------------------------------------------------------------
get_beta_mu(new_times = 1:10, results = fit, conf.level = 0.95)

## -----------------------------------------------------------------------------
get_beta_A(new_times = 1:10, results = fit, conf.level = 0.95)