Add a new R function

New R function called sss.R