My source code in R