Skip to contents

tps_raw calculates deformation grids and returns position of sampled points on it.

Usage

tps_raw(fr, to, amp = 1, over = 1.2, grid.size = 15)

Arguments

fr

the reference \((x; y)\) coordinates

to

the target \((x; y)\) coordinates

amp

an amplification factor of differences between fr and to

over

numeric that indicates how much the thin plate splines extends over the shapes

grid.size

numeric to specify the number of grid cells on the longer axis on the outlines

Value

a list with two components: grid the xy coordinates of sampled points along the grid; dim the dimension of the grid.

See also

Other thin plate splines: tps2d(), tps_arr(), tps_grid(), tps_iso()

Examples

# \donttest{
ms <- MSHAPES(efourier(bot, 10), "type")
#> 'norm=TRUE' is used and this may be troublesome. See ?efourier #Details
b <- ms$shp$beer
w <- ms$shp$whisky
g <- tps_raw(b, w)
ldk_plot(g$grid)


# a wavy plot
ldk_plot(g$grid, pch=NA)
cols_ids <- 1:g$dim[1]
for (i in 1:g$dim[2]) lines(g$grid[cols_ids + (i-1)*g$dim[1], ])

# }