Removed default inputs for pj_estimate(), projoint_diff(), and projoi…

…nt_level().

Since we set these parameters in projoint() and these functions are used only in projoint(), these defaults should be removed.

R/pj_estimate.R

@@ -34,28 +34,28 @@
 
 pj_estimate <- function(
     .data,
-    .structure = "profile_level",
-    .estimand = "mm",
+    .structure,
+    .estimand,
     .att_choose, 
     .lev_choose,
-    .att_notchoose = NULL, 
-    .lev_notchoose = NULL,
-    .att_choose_b = NULL, 
-    .lev_choose_b = NULL,
-    .att_notchoose_b = NULL, 
-    .lev_notchoose_b = NULL,
-    .se_method = "analytical",
-    .irr = NULL,
-    .remove_ties = TRUE,
-    .ignore_position = NULL,
-    .n_sims = NULL,
-    .n_boot = NULL,
-    .weights_1 = NULL,
-    .clusters_1 = NULL,
-    .se_type_1 = "classical",
-    .weights_2 = NULL,
-    .clusters_2 = NULL,
-    .se_type_2 = "classical"
+    .att_notchoose, 
+    .lev_notchoose,
+    .att_choose_b, 
+    .lev_choose_b,
+    .att_notchoose_b, 
+    .lev_notchoose_b,
+    .se_method,
+    .irr,
+    .remove_ties,
+    .ignore_position,
+    .n_sims,
+    .n_boot,
+    .weights_1,
+    .clusters_1,
+    .se_type_1,
+    .weights_2,
+    .clusters_2,
+    .se_type_2
 ){
 
   # check various settings --------------------------------------------------

R/projoint_diff.R

@@ -30,22 +30,22 @@
 
 projoint_diff <- function(
     .data,
-    .qoi = NULL,
+    .qoi,
     .by_var,
-    .structure = "profile_level",
-    .estimand = "mm",
-    .se_method = "analytical",
-    .irr = NULL,
-    .remove_ties = TRUE,
-    .ignore_position = NULL,
-    .n_sims = NULL,
-    .n_boot = NULL,
-    .weights_1 = NULL,
-    .clusters_1 = NULL,
-    .se_type_1 = "classical",
-    .weights_2 = NULL,
-    .clusters_2 = NULL,
-    .se_type_2 = "classical"
+    .structure,
+    .estimand,
+    .se_method,
+    .irr,
+    .remove_ties,
+    .ignore_position,
+    .n_sims,
+    .n_boot,
+    .weights_1,
+    .clusters_1,
+    .se_type_1,
+    .weights_2,
+    .clusters_2,
+    .se_type_2
 ){
 
   # bind variables locally to the function ----------------------------------

R/projoint_level.R

@@ -29,21 +29,21 @@
 
 projoint_level <- function(
     .data,
-    .qoi = NULL,
-    .structure = "profile_level",
-    .estimand = "mm",
-    .se_method = "analytical",
-    .irr = NULL,
-    .remove_ties = TRUE,
-    .ignore_position = NULL,
-    .n_sims = NULL,
-    .n_boot = NULL,
-    .weights_1 = NULL,
-    .clusters_1 = NULL,
-    .se_type_1 = "classical",
-    .weights_2 = NULL,
-    .clusters_2 = NULL,
-    .se_type_2 = "classical"
+    .qoi,
+    .structure,
+    .estimand,
+    .se_method,
+    .irr,
+    .remove_ties,
+    .ignore_position,
+    .n_sims,
+    .n_boot,
+    .weights_1,
+    .clusters_1,
+    .se_type_1,
+    .weights_2,
+    .clusters_2,
+    .se_type_2
 ){
 
   # bind variables locally to the function ----------------------------------