R/consec_pairs.R

In cape: Combined Analysis of Pleiotropy and Epistasis for Diversity Outbred Mice

#' Generate a matrix of consecutive elements
#'
#' Given a vector, this function generates a two-column
#' matrix in which each row contains an element and its
#' consecutive neighbor.
#'
#' @param elements a vector of elements
#'
#' @return a matrix with two columns. The first column
#' is identical to elements with the last element taken
#' off. And second column holds the next consecutive 
#' element.
#'
#' @keywords internal
#' 
consec_pairs <- function(elements){
  
  pair_mat <- matrix(NA, nrow = (length(elements)-1), ncol = 2)
  pair_mat[,1] <- elements[1:(length(elements)-1)]
  pair_mat[,2] <- elements[2:length(elements)]
  return(pair_mat)
}