# NOT RUN {
from <- matrix(c(1, 1, 2, 5, 6, 5, 5, 1), nrow = 4, byrow = TRUE)
to <- matrix(c(1, 1, 1, 5, 5, 5, 5, 1), nrow = 4, byrow = TRUE)
getPerspectiveTransform(from, to, c(1080, 1920), c(1080, 1920))
# }
Run the code above in your browser using DataLab