# NOT RUN {
data(Diabetes) # load data
x <- Diabetes[,c('S1', 'S2', 'S3', 'S4', 'S5')]
y <- Diabetes[,c('Y')]
x <- data.matrix(x)
y <- data.matrix(y)
# }
# NOT RUN {
result <- mcb(x=x, y=y)
# }
# NOT RUN {
# plot of the model uncertainty curve
# }
# NOT RUN {
result$mucplot
# }
# NOT RUN {
# a list containing the bootstrap coverage rate and mcb
# }
# NOT RUN {
result$mcb
# }
# NOT RUN {
# a dataframe containing all the information about MCBs
# }
# NOT RUN {
result$mcbframe
# }
Run the code above in your browser using DataLab