Skip to contents

One-row summary for fuzzydid objects.

Usage

# S3 method for class 'fuzzydid'
glance(x, ...)

Arguments

x

A fuzzydid object.

...

Unused.

Value

A one-row data frame with class "data.frame" summarizing the fitted object. backend reports the computation path and Num.Obs. reports the estimation sample size. N.11, N.10, N.01, and N.00 give the four design cell counts. N.reps, N.misreps, and Share.failures describe bootstrap replication totals and failure rates, or are NA when nose = TRUE.

Examples

make_example_cell <- function(g, t, ones, n_cell = 20L) {
  data.frame(
    g = rep.int(g, n_cell),
    t = rep.int(t, n_cell),
    d = c(rep.int(1L, ones), rep.int(0L, n_cell - ones))
  )
}

df <- rbind(
  make_example_cell(0L, 0L, 4L),
  make_example_cell(0L, 1L, 8L),
  make_example_cell(1L, 0L, 6L),
  make_example_cell(1L, 1L, 16L)
)
df$id <- seq_len(nrow(df))
df$y <- 1 + 0.5 * df$g + 0.4 * df$t + 2 * df$d + sin(df$id / 7)

fit <- fuzzydid(
  data = df[, c("y", "g", "t", "d")],
  formula = y ~ d,
  group = "g",
  time = "t",
  did = TRUE,
  nose = TRUE
)

generics::glance(fit)
#>   backend Num.Obs. N.11 N.10 N.01 N.00 N.reps N.misreps Share.failures
#> 1  native       80   20   20   20   20     NA        NA             NA