add some comment to R file, and init the README.md