Momocs (version 1.0.0)

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)

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

## Not run: 
# data(bot)
# 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], ])
# ## End(Not run)