# NOT RUN {
Y <- mtcars[, 1:3]
bb <- bbcor(Y)
bb_compare <- compare("mpg--cyl > mpg--disp",
obj = bb,
cred = 0.90,
rope = c(-0.1, 0.1))
plot(bb_compare)
# }
Run the code above in your browser using DataLab