if (requireNamespace("clubSandwich")) {
data("teen_poverty")
# Convert to long format
teen <- long_panel(teen_poverty, begin = 1, end = 5)
model <- fdm(hours ~ lag(pov) + spouse, data = teen)
summary(model)
}
Run the code above in your browser using DataLab