url <- "https://d396qusza40orc.cloudfront.net/getdata%2Fprojectfiles%2FUCI%20HAR%20Dataset.zip"
download.file(url=url, destfile="data", method="curl")
unzip(zipfile="data")
url <-"https://raw.githubusercontent.com/natvau/gettingAndCleaningData/master/run_analysis.R"
download.file(url=url, destfile="run_analysis.R", method="curl")
source("run_analysis.R")