met:

lastC <- function (x) {
  y <- sub(" +$", "", x)
  p1 <- nchar(y)
  cc <- substr(y, p1, p1)
  return(cc)
}

dengfei2013/met documentation built on May 30, 2019, 12:42 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.