Homogeneize for most differences

Homogeneize for most differences

homogeneize(..., sample = 60, procrustes = TRUE, center = TRUE,
  template = TRUE)

Arguments

...	list of shapes or comma-separated shapes
sample	if numeric (default=60), resample this number of points with Momocs::coo_sample
procrustes	logical (default=TRUE) whether to remove position, size, rotation differences with Momocs::fgProcrustes
center	logical (default=TRUE) whether to center shapes with Momocs::coo_center
template	logical (default=TRUE) whether to template shapes with Momocs::coo_template

Examples

# two shapes, comma separated
list(shapes[1], shapes[2]) %>% pile()
homogeneize(shapes[1], shapes[2]) %>% pile()

# with params
shapes[1:5] %>% homogeneize(sample=120, procrustes=FALSE) %>%
 paper %>% draw_outlines(col=pal_qual(5, 0.5))