add visualization.R and modify_R.R