library(tidyverse)
(df_1 <- tribble(
~Y, ~Treatment, ~Time, ~ID,
1, 0, 1, 1,
3, 1, 2, 1,
7, 1, 3, 1,
9, 0, 1, 2,
10, 0, 2, 2,
13, 0, 3, 2
))
(df_t_3 <- filter(
df_1,
Time == 3
) %>% select(ID, Y) %>%
rename(Z = Y))
(final_df <- left_join(df_1,
df_t_3))