R/makeUniqueCasesIndividualized.R

In msxakk89/dat: Data Analyst Toolkit (dat): a library of tools for data analysts and scientists

#' Make each element of a  redundant vector individualized
#' 
#' @param vec A vector of unique cases
#' @return A vector where each element of inputed vec is individualized by adding ".iteration" to the end of element
#' @export 

makeUniqueCasesIndividualized <- function(vec){
  for(i in 1:length(vec)){
    vec[i] <- paste(vec[i], ".", as.character(i), sep = "")
  }
  return(vec)
}