# \donttest{
set.seed(100)
n <- 1e3
X <- rnorm(n)
data <- rBNR(X = X, Z = X, b = 1, a = -1, t_miss = 0.1, s_miss = 0.0)
t <- data[, 1]
s <- data[, 2]
# Model fit.
fit_bnls <- Fit.BNLS(
t = t,
s = s,
X = X,
sig = 0.05
)
# }
Run the code above in your browser using DataLab