R/recodeXYM.R

recodeXYM <- function(vec) {
  vec[vec=="X"] <- 23
  vec[vec=="Y"] <- 24
  vec[vec=="M"] <- 25
  return(as.numeric(vec))
}
tshmak/Rplink documentation built on June 1, 2019, 1:55 a.m.