URL <- "https://d396qusza40orc.cloudfront.net/repdata%2Fdata%2FStormData.csv.bz2"; FN <- "StormData.csv.bz2"; download.file(URL,destfile = FN);