R/kin.signal.arclength.R

In ccamp83/kinesis: R package for the analysis of motion trajectories and movement kinematics

#' @export
kin.signal.arclength <- function(data)
{
  Xdiff <- kin.sgFilter(data[,1], m=1)
  Ydiff <- kin.sgFilter(data[,2], m=1)
  Zdiff <- kin.sgFilter(data[,3], m=1)
  arclength <- sqrt(Xdiff^2 + Ydiff^2 + Zdiff^2)

  return(cumsum(arclength))
}