No flags found
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
698ee1e
... +4 ...
d6d5041
Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.
e.g., #unittest #integration
#production #enterprise
#frontend #backend
95 | 95 | #' library(dplyr) |
|
96 | 96 | #' data("gravity_no_zeros") |
|
97 | 97 | #' |
|
98 | - | #' # Choose 5 countries for testing |
|
99 | - | #' countries_chosen <- c("AUS", "CHN", "GBR", "BRA", "CAN") |
|
98 | + | #' # Choose 3 countries for testing |
|
99 | + | #' countries_chosen <- c("AUS", "GBR", "CAN") |
|
100 | 100 | #' grav_small <- filter(gravity_no_zeros, iso_o %in% countries_chosen) |
|
101 | 101 | #' |
|
102 | 102 | #' fit <- nbpml( |
89 | 89 | #' # Executable in < 5 sec |
|
90 | 90 | #' library(dplyr) |
|
91 | 91 | #' data("gravity_no_zeros") |
|
92 | - | #' |
|
92 | + | #' |
|
93 | 93 | #' # Choose 5 countries for testing |
|
94 | 94 | #' countries_chosen <- c("AUS", "CHN", "GBR", "BRA", "CAN") |
|
95 | 95 | #' grav_small <- filter(gravity_no_zeros, iso_o %in% countries_chosen) |
|
96 | - | #' |
|
96 | + | #' |
|
97 | 97 | #' fit <- bvw( |
|
98 | 98 | #' dependent_variable = "flow", |
|
99 | 99 | #' distance = "distw", |
172 | 172 | ||
173 | 173 | # Multilateral resistance (MR) for distance ---------------------------------- |
|
174 | 174 | d <- d %>% |
|
175 | - | group_by(!!sym(code_origin), add = FALSE) %>% |
|
175 | + | group_by(!!sym(code_origin), .add = FALSE) %>% |
|
176 | 176 | mutate( |
|
177 | 177 | mr_dist_1 = sum(!!sym("theta_j") * !!sym("dist_log"), na.rm = TRUE) |
|
178 | 178 | ) %>% |
|
179 | - | group_by(!!sym(code_destination), add = FALSE) %>% |
|
179 | + | group_by(!!sym(code_destination), .add = FALSE) %>% |
|
180 | 180 | mutate( |
|
181 | 181 | mr_dist_2 = sum(!!sym("theta_i") * !!sym("dist_log"), na.rm = TRUE) |
|
182 | 182 | ) %>% |
83 | 83 | #' # Executable in < 5 sec |
|
84 | 84 | #' library(dplyr) |
|
85 | 85 | #' data("gravity_no_zeros") |
|
86 | - | #' |
|
86 | + | #' |
|
87 | 87 | #' # Choose 5 countries for testing |
|
88 | 88 | #' countries_chosen <- c("AUS", "CHN", "GBR", "BRA", "CAN") |
|
89 | 89 | #' grav_small <- filter(gravity_no_zeros, iso_o %in% countries_chosen) |
|
90 | - | #' |
|
90 | + | #' |
|
91 | 91 | #' fit <- ddm( |
|
92 | 92 | #' dependent_variable = "flow", |
|
93 | 93 | #' distance = "distw", |
143 | 143 | y_log_ddm = !!sym("y_log"), |
|
144 | 144 | dist_log_ddm = !!sym("dist_log") |
|
145 | 145 | ) %>% |
|
146 | - | group_by(!!sym(code_origin), add = FALSE) %>% |
|
146 | + | group_by(!!sym(code_origin), .add = FALSE) %>% |
|
147 | 147 | mutate( |
|
148 | 148 | ym1 = mean(!!sym("y_log_ddm"), na.rm = TRUE), |
|
149 | 149 | dm1 = mean(!!sym("dist_log_ddm"), na.rm = TRUE) |
|
150 | 150 | ) %>% |
|
151 | - | group_by(!!sym(code_destination), add = FALSE) %>% |
|
151 | + | group_by(!!sym(code_destination), .add = FALSE) %>% |
|
152 | 152 | mutate( |
|
153 | 153 | ym2 = mean(!!sym("y_log_ddm"), na.rm = TRUE), |
|
154 | 154 | dm2 = mean(!!sym("dist_log_ddm"), na.rm = TRUE) |
|
155 | 155 | ) %>% |
|
156 | - | group_by(!!sym(code_origin), add = FALSE) %>% |
|
156 | + | group_by(!!sym(code_origin), .add = FALSE) %>% |
|
157 | 157 | mutate( |
|
158 | 158 | y_log_ddm = !!sym("y_log_ddm") - !!sym("ym1"), |
|
159 | 159 | dist_log_ddm = !!sym("dist_log_ddm") - !!sym("dm1") |
|
160 | 160 | ) %>% |
|
161 | - | group_by(!!sym(code_destination), add = FALSE) %>% |
|
161 | + | group_by(!!sym(code_destination), .add = FALSE) %>% |
|
162 | 162 | mutate( |
|
163 | 163 | y_log_ddm = !!sym("y_log_ddm") - !!sym("ym2"), |
|
164 | 164 | dist_log_ddm = !!sym("dist_log_ddm") - !!sym("dm2") |
174 | 174 | select(!!sym(code_origin), !!sym(code_destination), !!!syms(additional_regressors)) %>% |
|
175 | 175 | gather(!!sym("key"), !!sym("value"), -!!sym(code_origin), -!!sym(code_destination)) %>% |
|
176 | 176 | mutate(key = paste0(!!sym("key"), "_ddm")) %>% |
|
177 | - | group_by(!!sym(code_origin), !!sym("key"), add = FALSE) %>% |
|
177 | + | group_by(!!sym(code_origin), !!sym("key"), .add = FALSE) %>% |
|
178 | 178 | mutate(ddm = !!sym("value") - mean(!!sym("value"), na.rm = TRUE)) %>% |
|
179 | - | group_by(!!sym(code_destination), !!sym("key"), add = FALSE) %>% |
|
179 | + | group_by(!!sym(code_destination), !!sym("key"), .add = FALSE) %>% |
|
180 | 180 | mutate(ddm = !!sym("ddm") - mean(!!sym("value"), na.rm = TRUE)) %>% |
|
181 | 181 | ungroup() %>% |
|
182 | 182 | mutate(value = !!sym("ddm") + mean(!!sym("value"), na.rm = TRUE)) %>% |
87 | 87 | #' # Executable in < 5 sec |
|
88 | 88 | #' library(dplyr) |
|
89 | 89 | #' data("gravity_no_zeros") |
|
90 | - | #' |
|
90 | + | #' |
|
91 | 91 | #' # Choose 5 countries for testing |
|
92 | 92 | #' countries_chosen <- c("AUS", "CHN", "GBR", "BRA", "CAN") |
|
93 | 93 | #' grav_small <- filter(gravity_no_zeros, iso_o %in% countries_chosen) |
|
94 | - | #' |
|
94 | + | #' |
|
95 | 95 | #' fit <- bvu( |
|
96 | 96 | #' dependent_variable = "flow", |
|
97 | 97 | #' distance = "distw", |
159 | 159 | d <- d %>% |
|
160 | 160 | group_by(!!sym(code_origin)) %>% |
|
161 | 161 | mutate(mean_dist_log_1 = mean(!!sym("dist_log"), na.rm = TRUE)) %>% |
|
162 | - | group_by(!!sym(code_destination), add = FALSE) %>% |
|
162 | + | group_by(!!sym(code_destination), .add = FALSE) %>% |
|
163 | 163 | mutate(mean_dist_log_2 = mean(!!sym("dist_log"), na.rm = TRUE)) %>% |
|
164 | 164 | ungroup() %>% |
|
165 | 165 | mutate( |
Learn more Showing 15 files with coverage changes found.
R/sils.R
R/tobit.R
R/bvu.R
R/ek_tobit.R
R/nls.R
R/hm_summary.R
R/et_tobit.R
R/bvw.R
R/ddm.R
R/log_distance.R
R/tetrads.R
R/ppml.R
R/gpml.R
R/nbpml.R
R/ols.R
Files | Coverage |
---|---|
Project Totals (17 files) | 84.61% |
d6d5041
a379c00
4245131
2cb2974
817a40d
698ee1e