added some incomplete R code (tokenise only)