@@ -66,24 +66,31 @@ filterHospitalizationsAheads <- function(scoreDf) {
66
66
group_by(target_end_date , forecaster ) %> %
67
67
filter(ahead == min(ahead )) %> %
68
68
mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [1 ])
69
- twoAheadDf <- scoreDf %> %
70
- filter(ahead > = 7 + HOSPITALIZATIONS_OFFSET ) %> %
71
- filter(ahead < 14 + HOSPITALIZATIONS_OFFSET ) %> %
72
- group_by(target_end_date , forecaster ) %> %
73
- filter(ahead == min(ahead )) %> %
74
- mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [2 ])
75
- threeAheadDf <- scoreDf %> %
76
- filter(ahead > = 14 + HOSPITALIZATIONS_OFFSET ) %> %
77
- filter(ahead < 21 + HOSPITALIZATIONS_OFFSET ) %> %
78
- group_by(target_end_date , forecaster ) %> %
79
- filter(ahead == min(ahead )) %> %
80
- mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [3 ])
81
- fourAheadDf <- scoreDf %> %
82
- filter(ahead > = 21 + HOSPITALIZATIONS_OFFSET ) %> %
83
- filter(ahead < 28 + HOSPITALIZATIONS_OFFSET ) %> %
84
- group_by(target_end_date , forecaster ) %> %
85
- filter(ahead == min(ahead )) %> %
86
- mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [4 ])
87
69
88
- return (rbind(oneAheadDf , twoAheadDf , threeAheadDf , fourAheadDf ))
70
+ return (bind_rows(
71
+ scoreDf %> %
72
+ filter(ahead > = HOSPITALIZATIONS_OFFSET ) %> %
73
+ filter(ahead < 7 + HOSPITALIZATIONS_OFFSET ) %> %
74
+ group_by(target_end_date , forecaster ) %> %
75
+ filter(ahead == min(ahead )) %> %
76
+ mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [1 ]),
77
+ scoreDf %> %
78
+ filter(ahead > = 7 + HOSPITALIZATIONS_OFFSET ) %> %
79
+ filter(ahead < 14 + HOSPITALIZATIONS_OFFSET ) %> %
80
+ group_by(target_end_date , forecaster ) %> %
81
+ filter(ahead == min(ahead )) %> %
82
+ mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [2 ]),
83
+ scoreDf %> %
84
+ filter(ahead > = 14 + HOSPITALIZATIONS_OFFSET ) %> %
85
+ filter(ahead < 21 + HOSPITALIZATIONS_OFFSET ) %> %
86
+ group_by(target_end_date , forecaster ) %> %
87
+ filter(ahead == min(ahead )) %> %
88
+ mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [3 ]),
89
+ scoreDf %> %
90
+ filter(ahead > = 21 + HOSPITALIZATIONS_OFFSET ) %> %
91
+ filter(ahead < 28 + HOSPITALIZATIONS_OFFSET ) %> %
92
+ group_by(target_end_date , forecaster ) %> %
93
+ filter(ahead == min(ahead )) %> %
94
+ mutate(ahead = HOSPITALIZATIONS_AHEAD_OPTIONS [4 ])
95
+ ))
89
96
}
0 commit comments