R/lastC.R

lastC <- function (x) {
  y <- sub(" +$", "", x)
  p1 <- nchar(y)
  cc <- substr(y, p1, p1)
  return(cc)
}
dengfei2013/learnasreml documentation built on Oct. 25, 2024, 7 a.m.