# Prepare data
# \donttest{
df_injuries <- prepare_inj(
df_injuries0 = raw_df_injuries,
person_id = "player_name",
date_injured = "from",
date_recovered = "until"
)
df_exposures <- prepare_exp(
df_exposures0 = raw_df_exposures,
person_id = "player_name",
date = "year",
time_expo = "minutes_played"
)
injd <- prepare_all(
data_exposures = df_exposures,
data_injuries = df_injuries,
exp_unit = "matches_minutes"
)
# }
# \donttest{
cut_injd(injd, date0 = 2018)
# }
Run the code above in your browser using DataLab