Update run_analysis.R

Tidying - create the data subdirectory if it's not there.