Merge pull request #205 from r-causal/clean-up-misc

r-causal · Nov 24, 2023 · fd2726a · fd2726a
2 parents 8111492 + 8d62957
commit fd2726a
Show file tree

Hide file tree

Showing 9 changed files with 446 additions and 347 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -32,6 +32,7 @@ Imports:
     PSW,
     ragg,
     rsample (>= 0.0.5),
+    sandwich,
     skimr,
     smd,
     survey,

diff --git a/chapters/chapter-04.qmd b/chapters/chapter-04.qmd
@@ -67,7 +67,8 @@ data <- data.frame(
 )
 
 ggplot(data, aes(x = x, y = y)) +
-  geom_text(aes(label = labels, angle = angle, vjust = 0),
+  geom_text(
+    aes(label = labels, angle = angle, vjust = 0),
     size = 7
   ) +
   geom_segment(aes(x = 1, xend = 2, y = 0.95, yend = 0.95)) +
@@ -463,9 +464,11 @@ d |>
   as.data.frame() -> d
 library(PSW)
 df <- as.data.frame(d)
-x <- psw(df,
+x <- psw(
+  df,
   "treatment ~ weight + age",
-  weight = "ATE", wt = TRUE,
+  weight = "ATE",
+  wt = TRUE,
   out.var = "y"
 )
 tibble(
@@ -568,9 +571,11 @@ d |>
   as.data.frame() -> d
 library(PSW)
 df <- as.data.frame(d)
-x <- psw(df,
+x <- psw(
+  df,
   "treatment ~ weight + age",
-  weight = "ATE", wt = TRUE,
+  weight = "ATE",
+  wt = TRUE,
   out.var = "y"
 )
 tibble(
-Original file line number
+Diff line change
@@ Expand Up / @@ -32,6 +32,7 @@ Imports: @@
         PSW,
         ragg,
         rsample (>= 0.0.5),
+        sandwich,
         skimr,
         smd,
         survey,
@@ Expand Down @@