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