## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 5
)

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

## ----eval=FALSE---------------------------------------------------------------
# # install.packages("pak")
# pak::pak("xulinpan/uddbart")

## ----setup--------------------------------------------------------------------
library(uddbart)

## -----------------------------------------------------------------------------
data("cml_long", package = "uddbart")
data("cml_event", package = "uddbart")

## -----------------------------------------------------------------------------
head(cml_long)

## -----------------------------------------------------------------------------
head(cml_event)

## ----eval=FALSE---------------------------------------------------------------
# head(cml_long)

## ----eval=FALSE---------------------------------------------------------------
# head(cml_event)

## ----eval=FALSE---------------------------------------------------------------
# fit <- uddbart(
#   long_data = cml_long,
#   event_data = cml_event,
#   landmark = c(6, 12),
#   horizon = 12,
#   ntree = 20,
#   ndpost = 50,
#   nskip = 25,
#   seed = 1
# )

## ----eval=FALSE---------------------------------------------------------------
# pred <- predict(fit)
# 
# head(pred)

## ----eval=FALSE---------------------------------------------------------------
# str(fit)