-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfilm_info.R
39 lines (26 loc) · 1.83 KB
/
film_info.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
setwd("D:/Documents/MyPracticals_R_WorkOn/My_R_Practicals")
source("film.R")
nsw_psid <- read.csv("nsw_psid.csv")
data <- nsw_psid
outcome <- "re78"
treated <- "treated"
covariates <- c("age", "educ", "black", "hispanic", "married", "nodegree", "re75")
film(data = data, outcome = outcome, treated = treated, covariates = covariates, robust = FALSE)
film(data = data, outcome = outcome, treated = treated, covariates = covariates, robust = TRUE)
# If happy to commit on the order of the args:
film(data, outcome, treated, covariates, robust = FALSE)
film(data, outcome, treated, covariates, robust = TRUE)
cov <- c("age", "educ")
lcov <- c("black", "hispanic", "married", "nodegree", "re75")
film(data = data, outcome = outcome, treated = treated, covariates = cov, lin_cov = lcov, robust = FALSE)
film(data = data, outcome = outcome, treated = treated, covariates = cov, lin_cov = lcov, robust = TRUE)
# ATNT
film(data = data, outcome = outcome, treated = treated, covariates = covariates, robust = FALSE, effect = "ATNT")
film(data = data, outcome = outcome, treated = treated, covariates = covariates, robust = TRUE, effect = "ATNT")
film(data = data, outcome = outcome, treated = treated, covariates = cov, lin_cov = lcov, robust = FALSE, effect = "ATNT")
film(data = data, outcome = outcome, treated = treated, covariates = cov, lin_cov = lcov, robust = TRUE, effect = "ATNT")
# ATE
film(data = data, outcome = outcome, treated = treated, covariates = covariates, robust = FALSE, effect = "ATE")
film(data = data, outcome = outcome, treated = treated, covariates = covariates, robust = TRUE, effect = "ATE")
film(data = data, outcome = outcome, treated = treated, covariates = cov, lin_cov = lcov, robust = FALSE, effect = "ATE")
film(data = data, outcome = outcome, treated = treated, covariates = cov, lin_cov = lcov, robust = TRUE, effect = "ATE")