move script
add R script