data(pbc2, package = "JMbayes2")
data(pbc2.id, package = "JMbayes2")
pbc2_slc <- slicer(n_slices = 2, id_var = "id", data_long = pbc2,
data_surv = pbc2.id, seed = 123L)
length(pbc2_slc$long) # 2
length(pbc2_slc$surv) # 2
Run the code above in your browser using DataLab