# Generate artificial data
set.seed(1)
n <- 2000
data <- latenetwork::datageneration(n = n)
# Arguments
Y <- data$Y
D <- data$D
Z <- data$Z
S <- rep(TRUE, n)
A <- data$A
K <- 1
bw <- NULL
B <- NULL
alp <- 0.05
# Estimation
latenetwork::indirect(Y = Y,
D = D,
Z = Z,
S = S,
A = A,
K = K,
bw = bw,
B = B,
alp = alp)
Run the code above in your browser using DataLab