Intial of R functions