Update test_script.R

I've changed the output of this script. I'm so awesome.