Modified the script to use the get_data() function defined in the get_data.R
script.