Update run_analysis.R

melt and cast