Helper function to stitch tile coordinates together to form one complete picture
Examples
location_file <- data.table::data.table(
field = rep(c(1, 2), 5),
X.X = rnorm(10), Y.Y = rnorm(10), XtileIndex = seq_len(10),
YtileIndex = seq_len(10)
)
stitchTileCoordinates(location_file, Xtilespan = 0.5, Ytilespan = 0.5)
#> field X.X Y.Y XtileIndex YtileIndex Xcoord Ycoord
#> <num> <num> <num> <int> <int> <num> <num>
#> 1: 1 0.01308331 0.7811606 1 1 0.01308331 0.78116058
#> 2: 2 0.64365001 0.3784188 2 2 1.14365001 0.87841880
#> 3: 1 -2.48768926 -1.0124020 3 3 -1.48768926 -0.01240202
#> 4: 2 0.93101913 -2.0656557 4 4 2.43101913 -0.56565571
#> 5: 1 -1.89955741 1.0928168 5 5 0.10044259 3.09281676
#> 6: 2 1.21015863 -1.7202851 6 6 3.71015863 0.77971492
#> 7: 1 -1.46457418 -0.3058085 7 7 1.53542582 2.69419149
#> 8: 2 0.75557357 -0.3731366 8 8 4.25557357 3.12686344
#> 9: 1 0.42274803 0.4004511 9 9 4.42274803 4.40045106
#> 10: 2 -0.43002963 1.1347597 10 10 4.06997037 5.63475968