Skip to content

Commit

Permalink
Update projoint_level.R
Browse files Browse the repository at this point in the history 
Again, I removed some more defaults.
  • Loading branch information
@yhoriuchi
yhoriuchi committed Sep 30, 2023
1 parent 5f0ad37 commit 1ac1818
Showing 1 changed file with 18 additions and 18 deletions.
36 changes: 18 additions & 18 deletions R/projoint_level.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -122,12 +122,12 @@ projoint_level <- function(
.ignore_position,
.n_sims,
.n_boot,
.weights_1 = NULL,
.clusters_1 = NULL,
.se_type_1 = "classical",
.weights_2 = NULL,
.clusters_2 = NULL,
.se_type_2 = "classical") %>%
.weights_1,
.clusters_1,
.se_type_1,
.weights_2,
.clusters_2,
.se_type_2) %>%
dplyr::mutate(att_level_choose = stringr::str_c(stringr::str_c(attribute, level, sep = ":"), collapse = " or "))

} else {
Expand All @@ -151,12 +151,12 @@ projoint_level <- function(
.ignore_position,
.n_sims,
.n_boot,
.weights_1 = NULL,
.clusters_1 = NULL,
.se_type_1 = "classical",
.weights_2 = NULL,
.clusters_2 = NULL,
.se_type_2 = "classical") %>%
.weights_1,
.clusters_1,
.se_type_1,
.weights_2,
.clusters_2,
.se_type_2) %>%
dplyr::mutate(att_level_choose = stringr::str_c(stringr::str_c(attribute, level, sep = ":"), collapse = " or "),
att_level_choose_baseline = stringr::str_c(stringr::str_c(attribute, "level1", sep = ":"), collapse = " or "),
)
Expand Down Expand Up @@ -207,12 +207,12 @@ projoint_level <- function(
.ignore_position,
.n_sims,
.n_boot,
.weights_1 = NULL,
.clusters_1 = NULL,
.se_type_1 = "classical",
.weights_2 = NULL,
.clusters_2 = NULL,
.se_type_2 = "classical")
.weights_1,
.clusters_1,
.se_type_1,
.weights_2,
.clusters_2,
.se_type_2)


if (estimand == "mm"){
Expand Down

0 comments on commit 1ac1818

Please sign in to comment.