Update run_analysis.R

Fixed the output a little by shortening subject_number to subj, and also cleaned it a bit by adding the sep="\t" to the write.table()