R/lastC.R

Defines functions lastC

lastC <-
  function(x) {
    y<-sub(" +$", "",x)
    p1<-nchar(y)
    cc<-substr(y,p1,p1)
    return(cc)
  }
laynelv/isenso documentation built on May 20, 2019, 8:26 p.m.