#' Find curves
#'
#' Finds beginings of curves in semilandmark curves matrix used in geomorph::gpagen
#' @param curves Matrix of curves
#' @export
find.curves <- function(curves) {
break.points <- 1
for (i in 2:nrow(curves)) {
if (curves[i,2]!=curves[i-1,3]) {
break.points <- c(break.points,i)
}
}
return(break.points)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.