initial R functions commit