_The_ R function