dat <- simdat()
fit <- ipd(Y - f ~ X1, method = "pspa", model = "ols",
data = dat, label = "set_label")
tidy(fit)
dat <- simdat()
fit <- ipd(Y - f ~ X1, method = "pspa", model = "ols",
data = dat, label = "set_label")
glance(fit)
dat <- simdat()
fit <- ipd(Y - f ~ X1, method = "pspa", model = "ols",
data = dat, label = "set_label")
augmented_df <- augment(fit)
head(augmented_df)
Run the code above in your browser using DataLab