# NOT RUN {
# Load the Edgeroi dataset (see ?edgeroi)
data(edgeroi)
# Create a dissever output
diss <- dissever(
coarse = edgeroi$carbon,
fine = edgeroi$predictors,
method = "lm",
min_iter = 5, max_iter = 10,
p = 0.05
)
# Generate the confidence intervals
# }
# NOT RUN {
ci <- generate_ci(diss, edgeroi$predictors, n = 5)
plot(ci)
# }
Run the code above in your browser using DataLab