# NOT RUN {
birth_event <- event(
id = 'first-id',
type = 'BIRTH',
time = '1936-11-09',
birth_date = '1936-11-09'
)
death_event <- event(
id = 'second-id',
type = 'DEATH',
time = '2019-05-22',
death_date = '2019-05-22'
)
the_event_list <- event_list(birth_event, death_event)
# }
Run the code above in your browser using DataLab