Create vast_test.r

made some awesome updates..cleaned up the R code by establish methods: I will later call this script and pass commandline arguments from python