# NOT RUN {
file1 <- system.file("sample_img/balloon1.png", package = "Rvision")
file2 <- system.file("sample_img/balloon2.png", package = "Rvision")
balloon1 <- changeColorSpace(image(file1), "GRAY")
balloon2 <- changeColorSpace(image(file2), "GRAY")
ecc <- findTransformORB(balloon1, balloon2, warp_mode = "homography")
balloon2_transformed <- warpPerspective(balloon2, ecc)
# }
Run the code above in your browser using DataLab