R/change_curve.R

In jakubnowicki/morphoutils: Utility functions for geometric morphometrics

#' Remove landmarks from semilandmark matrix
#' 
#' Function removes landmarks from semilandmark matrix and changes numbers of remining ones.
#' @param curves Semilandmark matrix
#' @param points.to.remove Vector of landamrk numbers to be removed
#' @export

change.curves <- function(curves,points.to.remove) {
  break.points <- find.curves(curves)
  curves.list <- matrix.to.list(curves,break.points)
  n.curves <- length(curves.list)
  n.points <- length(points.to.remove)
  points.to.remove <- points.to.remove[order(-points.to.remove)]
  for (i in 1:n.points) {
    point <- points.to.remove[1]
    for (j in 1:n.curves) {
      curves.list[[j]] <- rm.landmark.from.curve(curves.list[[j]],point)
    }
    points.to.remove <- rm.landmark.from.curve(curve = points.to.remove,landmark.nr = point)
  }
  curves.fin <- list.to.matrix(curves.list)
  return(curves.fin)
}