drop did imports

bcallaway11 · Jan 11, 2025 · 09c94b9 · 09c94b9
1 parent d56f671
commit 09c94b9
Show file tree

Hide file tree

Showing 5 changed files with 441 additions and 70 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -16,7 +16,6 @@ RoxygenNote: 7.3.2
 Imports:
     BMisc (>= 1.4.7),
     Matrix,
-    did (>= 2.0.0),
     ggplot2,
     DRDID,
     tidyr,

diff --git a/R/pte.R b/R/pte.R
@@ -418,7 +418,7 @@ pte <- function(yname,
   #-----------------------------------------------------------------------------
 
   # overall
-  overall_att <- did::aggte(att_gt, type = "group", bstrap = TRUE, cband = cband, alp = ptep$alp)
+  overall_att <- pte_aggte(att_gt, type = "group", bstrap = TRUE, cband = cband, alp = ptep$alp)
 
   # event study
   # ... for max_e and min_e
@@ -427,7 +427,7 @@ pte <- function(yname,
   max_e <- ifelse(is.null(dots$max_e), Inf, dots$max_e)
   balance_e <- dots$balance_e
 
-  event_study <- did::aggte(att_gt, type = "dynamic", bstrap = TRUE, cband = cband, alp = ptep$alp, min_e = min_e, max_e = max_e, balance_e = balance_e)
+  event_study <- pte_aggte(att_gt, type = "dynamic", bstrap = TRUE, cband = cband, alp = ptep$alp, min_e = min_e, max_e = max_e, balance_e = balance_e)
 
   # output
   out <- pte_results(
@@ -600,7 +600,7 @@ pte2 <- function(yname,
   #-----------------------------------------------------------------------------
 
   # overall
-  overall_att <- did::aggte(att_gt, type = "group", bstrap = TRUE, cband = cband, alp = ptep$alp)
+  overall_att <- pte_aggte(att_gt, type = "group", bstrap = TRUE, cband = cband, alp = ptep$alp)
 
   # event study
   # ... for max_e and min_e
@@ -609,7 +609,7 @@ pte2 <- function(yname,
   max_e <- ifelse(is.null(dots$max_e), Inf, dots$max_e)
   balance_e <- dots$balance_e
 
-  event_study <- did::aggte(att_gt, type = "dynamic", bstrap = TRUE, cband = cband, alp = ptep$alp, min_e = min_e, max_e = max_e, balance_e = balance_e)
+  event_study <- pte_aggte(att_gt, type = "dynamic", bstrap = TRUE, cband = cband, alp = ptep$alp, min_e = min_e, max_e = max_e, balance_e = balance_e)
 
   # output
   out <- pte_results(