fix formula warnings

R/feglm.R

@@ -46,7 +46,7 @@
 #'  Linear Models with High-Dimensional k-Way Fixed Effects". ArXiv e-prints.
 #' @examples
 #' mod <- feglm(
-#'   trade ~ dist + lang + cntg + clny | exp_year + imp_year,
+#'   trade ~ log_dist + lang + cntg + clny | exp_year + imp_year,
 #'   trade_panel,
 #'   family = poisson(link = "log")
 #' )

R/felm.R

@@ -19,7 +19,7 @@
 #'
 #' @examples
 #' mod <- felm(
-#'   log(trade) ~ dist + lang + cntg + clny | exp_year + imp_year,
+#'   log(trade) ~ log_dist + lang + cntg + clny | exp_year + imp_year,
 #'   trade_panel
 #' )
 #'

R/fenegbin.R

@@ -9,7 +9,7 @@
 #' @examples
 #' # same as the example in fepoisson but with overdispersion/underdispersion
 #' mod <- fenegbin(
-#'   trade ~ dist + lang + cntg + clny | exp_year + imp_year,
+#'   trade ~ log_dist + lang + cntg + clny | exp_year + imp_year,
 #'   trade_panel
 #' )
 #'

R/fepoisson.R

@@ -5,7 +5,7 @@
 #' @examples
 #' # same as the example in feglm but with less typing
 #' mod <- fepoisson(
-#'   trade ~ dist + lang + cntg + clny | exp_year + imp_year,
+#'   trade ~ log_dist + lang + cntg + clny | exp_year + imp_year,
 #'   trade_panel
 #' )
 #'

R/generics_vcov.R

@@ -35,15 +35,18 @@ vcov.feglm <- function(
   type <- match.arg(type)
 
   # Extract cluster from formula
-  cl.vars <- attr(terms(object[["formula"]], rhs = 3L), "term.labels")
+  # it is totally fine not to have a cluster variable
+  suppressWarnings({
+    cl.vars <- attr(terms(object[["formula"]], rhs = 3L), "term.labels")
+  })
   k <- length(cl.vars)
   if (isTRUE(k >= 1L) && type != "clustered") {
     type <- "clustered"
     # add overwrite warning msg
     message(
       paste(
         "There are clustering variables in the model formula.",
-        "The 'type' argument will be overwritten to 'clustered'."
+        "The 'type' argument will be overwritten to 'cluster'."
       )
     )
   }

dev/create_dataset.r

@@ -17,4 +17,29 @@ trade_panel = trade_panel %>%
   select(exp_year, imp_year, trade, dist, cntg, lang, clny, rta) %>%
   mutate(rta = as.integer(rta))
 
+trade_panel = trade_panel %>%
+  mutate(
+    exporter = substr(exp_year, 1, 3),
+    importer = substr(imp_year, 1, 3)
+  ) %>%
+    filter(importer != exporter) %>%
+    select(-exporter, -importer)
+
 use_data(trade_panel, overwrite = T)
+
+load_all()
+
+trade_panel = trade_panel %>%
+    mutate(
+       exporter = substr(exp_year, 1, 3),
+    importer = substr(imp_year, 1, 3),
+      pair = paste(exporter, importer, sep = "-"),
+      log_dist = log(dist)
+      ) %>%
+    select(exp_year, imp_year, pair, trade, log_dist, everything()) %>%
+        select(-exporter, -importer, -dist)
+
+trade_panel$year = as.integer(substr(trade_panel$exp_year, 4, 7))
+
+trade_panel = trade_panel %>%
+  select(year, everything())

docs/pkgdown.yml

@@ -3,5 +3,5 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   intro: intro.html
-last_built: 2024-02-15T23:37Z
+last_built: 2024-02-16T03:35Z