lastC <- function(x) { y<-sub(" +$", "",x) p1<-nchar(y) cc<-substr(y,p1,p1) return(cc) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.