Added first R function sets