# Generating Non-contaminated normal BAR(1) tree and calculating the BCa CI for
# the autoregressive coefficients of the BAR(1) model
z <- bfa_tree_gen(31, 1, 1, 1, 0.5, 0.5, 0, 10, c(0.7))
boot_bca_ci(z,p=1,B=99,J=2,conf_level=0.95)
# Generating Non-contaminated normal BAR(2) tree and calculating the BCa CI for
# the autoregressive coefficients of the BAR(2) model
z <- bfa_tree_gen(127, 2, 1, 1, 0.5, 0.5, 0, 10, c(0.5, 0.3))
boot_bca_ci(z,p=2,B=99,J=2,conf_level=0.95)
Run the code above in your browser using DataLab