library(smoothy)
library(dplyr)
data(drugstreatment)
df <- drugstreatment |>
filter(id == "01f13c15-d9f1-4106-a04f-976c457edd0a")
structured_df <- smooth_parse(
id = df$id,
start_date = df$start_date,
end_date = df$end_date,
drug = df$drug,
study_from = "1970-01-01",
study_to = "1975-01-01"
)
head(structured_df)
id = structured_df$id
treatment = structured_df$treatment
day = structured_df$day
N = structured_df$N
width = 61
smoothed <- smooth_algorithm(id = id, treatment = treatment, day = day, N = N, width = width)
head(smoothed)
Run the code above in your browser using DataLab