Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
balloon <- image(system.file("sample_img/balloon1.png", package = "Rvision"))
drawArrow(balloon, 1, 1, ncol(balloon) / 2, nrow(balloon) / 2, thickness = 3)
plot(balloon)
# }
Run the code above in your browser using DataLab