Remove points/landmarks from 2-D templates — remove

Delete points/landmarks from array of 2-D landmark templates

remove_points(
  lmdata,
  points,
  relabel_points = TRUE,
  plot = TRUE,
  quiet = FALSE
)

Arguments

lmdata	Array of dimensions p (number of landmarks) x k (dimensionality of data, only 2 allowed) x n (number of specimens)
points	You can specify points as numeric vector. If your original templates are standard FRL templates (p=189), you can also specify features by their FRL names (see frl_features)
relabel_points	If false, old landmark labels will be retained
plot	Plot new landmark templates
quiet	Print how many points were deleted

Value

Array of new dimensions p (reduced number of landmarks) x k x n

Examples


path_to_tem <- system.file("extdata", "tem", package="facefuns")

data <- read_lmdata(lmdata = path_to_tem,
                    plot = TRUE)

new_data <- remove_points(lmdata = data,
                          points = "frlgmm",
                          plot = TRUE)
#> 57 landmarks were deleted.