R/kin.getDataCols.R

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

#' @export
kin.getDataCols <- function()
{
  output <- as.data.frame(
  matrix(c("subjName","frameN","time","deltaTime","trialN",
         get("dataCols", kinesis_parameters)), nrow = 2, byrow = T)
  )

  colnames(output) <- NULL
  rownames(output) <- c("DEFAULT","CURRENT")

  return(output)
}