# NOT RUN {
data(infections)
dates <- infections$date
output <- fixed_episodes(dates, case_length=30)
output
# from the a pid/epid object to a data.frame
df_output <- to_df(output)
df_output
# from a data.frame to pid/epid object
s4_output <- to_s4(df_output)
s4_output
all(s4_output == output)
# }
Run the code above in your browser using DataLab