Create rChart_test.R

Just a test!