FlightTrainingtxt data httpmuploadeditcomba3n1449776614879t

FlightTraining.txt data : http://m.uploadedit.com/ba3n/1449776614879.txt

Solution

download.file(\"http://m.uploadedit.com/ba3n/1449776538580.txt\", destfile=\"FlightTest\", method= \"auto\")
download.file(\"http://m.uploadedit.com/ba3n/1449776614879.txt\", destfile=\"FlightTraining\", method= \"auto\")
options(max.print=1000000)
final<-read.table(\"FlightTest\" , header=T)
x<-read.table(\"FlightTraining\", header=T)
m<-lm(Delay~Month+Day+Distance+ScheduledDeparture, data=x)
summary(m)
f<-m[5]
names(f)<-c(\"DelayPredictions\")
newdata<-head(cbind(final, f), 50000)

#####...................Descriiption...................#####

#step1 download file FlightTest with 50000 rows
#step2 download file FlightTraining with 100000 rows
#step3 print maxuimum 100000 data points
#step4 create final variable that consits variables of file \"FlightTestfile\" with 50000 rows
#step5 create x variable that consits variables of file \"FlightTraining\" with 100000 rows
#step6 create m variable that runs regression model for prdicting delay using variables contains in x
#step7 create f variable that constains predicted valuess of delay
#step8:change the f vector names by \"DelayPredictions\"
#step9 create newdata that contains the whole data set with 50000 rows along with DelayPredictiosn variables