Print a compact fuzzydid object header and estimator table.
Usage
# S3 method for class 'fuzzydid'
print(x, ...)Examples
df <- expand.grid(i = seq_len(20), g = 0:1, t = 0:1)
df$d <- as.integer(df$i <= c(4, 8, 6, 16)[1 + df$t + 2 * df$g])
df$y <- 1 + 0.5 * df$g + 0.4 * df$t + 2 * df$d + sin(df$i / 7)
fit <- fuzzydid(df, y ~ d, group = "g", time = "t", did = TRUE, nose = TRUE)
print(fit)
#> fuzzydid fit: 80 observations
#> estimator estimate std.error conf.low conf.high
#> W_DID 2 NA NA NA