R/rot_vector.R

In r4lineups: Statistical Inference on Lineup Fairness

#'Rotate vector
#'
#'Helper function to rotate vector
#'
#'@param lineup_vec A vector of lineup data
#'@importFrom stats lag
#'@export
rot_vector <- function(lineup_vec){
  lineup_vec1 <- lag(lineup_vec)
  lineup_vec1[1] <- lineup_vec[length(lineup_vec)]
  lineup_vec <- lineup_vec1
}