Added cn_scatter R Script to the repo