opta_to_wyscout <- rescale_coordinates(
from = pitch_opta,
to = pitch_wyscout
)
opta_xs <- c(10, 22, 55, 78)
opta_ys <- c(10, 22, 55, 78)
opta_to_wyscout$x(opta_xs)
#> c(9.75000, 21.15152, 55.15152, 78.84848)
opta_to_wyscout$y(opta_ys)
#> c(9.004739, 20.031847, 55.172414, 79.968153)
Run the code above in your browser using DataLab