add R functions