# 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
IEM <- ifelse(A %*% Z > 0, 1, 0)
z <- 1
t0 <- 0
t1 <- 1
bw <- NULL
B <- NULL
alp <- 0.05
# Estimation
latenetwork::spillover(Y = Y,
D = D,
Z = Z,
IEM = IEM,
S = S,
A = A,
K = K,
z = z,
t0 = t0,
t1 = t1,
bw = bw,
B = B,
alp = alp)
Run the code above in your browser using DataLab