coef.fuzzydid — coef.fuzzydid • Rfuzzydid

Extract fuzzydid point estimates.

Usage

# S3 method for class 'fuzzydid'
coef(object, ...)

Arguments

object: A fuzzydid object.
...: Unused.

Value

A named numeric vector of LATE and LQTE point estimates.

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)
coef(fit)
#> W_DID 
#>     2