Momocs (version 1.4.1)

tps_raw: Vanilla Thin Plate Splines

Description

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)

Value

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

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

See Also

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

Examples

# \donttest{
ms <- MSHAPES(efourier(bot, 10), "type")
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], ])
# }