# Generating Non-contaminated normal BAR(1) tree and calculating the bias
# corrected percentile 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))
a1_ls <- bfa_ls(z,1)$coef[2]
a1_ls_star <- (rnorm(100,0.7,0.05))
bfa_perc_bc_ci(z, a1_ls, a1_ls_star, conf_level=0.95)
Run the code above in your browser using DataLab