simu.data <- simu.capr(seed = 123L, n = 120L)
K <- 2L
fit <- capr(
S = simu.data$S,
X = simu.data$X,
K = K
)
fit.boot <- capr.boot(
fit = fit,
nboot = 10L,
max_iter = 20L,
tol = 1e-6,
seed = 123L
)
print(fit.boot)
Run the code above in your browser using DataLab