# \donttest{
# Generate data.
set.seed(100)
n <- 1e3
X <- cbind(1, rnorm(n))
data <- rBNR(X = X, Z = X, b = c(1, 0), a = c(-1, 0), t_miss = 0.1, s_miss = 0.0)
# Test 1st coefficient.
wald_test1 <- Wald.BNLS(
t = data[, 1],
s = data[, 2],
X = X,
is_zero = c(TRUE, FALSE)
)
# Test 2nd coefficient.
wald_test2 <- Wald.BNLS(
t = data[, 1],
s = data[, 2],
X = X,
is_zero = c(FALSE, TRUE)
)
# }
Run the code above in your browser using DataLab