add R file
add Readme