# Data object normally created by [expand_trials]
datastore <- new("te_datastore_datatable", data = te_data_ex$data, N = 50139L)
sample_expanded_data(datastore, period = 260:275, p_control = 0.2, seed = 123)
Run the code above in your browser using DataLab