practice assignment-6

library (dplyr) install.packages(“nycflights13”) library(nycflights13) library(tibble) head(flights) flightstbl<-tbl_df(flights) ```

#1 Project 1 - Display the minimum, maximum, and average flight time and average distance traveled of all United Airline2 flights departing JFK during March 2013.

(r) flightstbl<- tbl_df(flights) flightstbl flightstbl%>% filter(carrier=="UA")%>% filter(month==3)%>% filter(origin=="JFK")%>% summarise(airtimemn=min(air_time,na.rm = TRUE),airtimemz=max(air_time,na.rm = TRUE),airtimemean=mean(air_time,na.rm=TRUE),meandistanc=mean(distance,na.rm=TRUE))

#2 Display the minimum, maximum, and average departure delays in minutes for June 2013 grouped by airport.

flightstbl%>% 
      filter(dep_delay>0,month==6) %>% 
      group_by(origin) %>%
      summarise(count=n(),dep_delaymin=min(dep_delay,na.rm = TRUE),dep_delaymemz=max(dep_delay,na.rm = TRUE),dep_delaymean=mean(dep_delay,na.rm=TRUE))

#3 Display the minimum, maximum, and average miles traveled per hour for United Airlines (UA) and American Airlines (AA) flights flying between all three airports and Chicago’s O’Hare International Airport (ORD) in June, July, and August 2013.

flightstbl%>%   
      filter(carrier%in%c("UA", "AA"))%>%
      filter(month%in%c(6,7,8))%>%
      filter(dest=="ORD")%>%
      mutate(speed=air_time/60)%>%
      mutate(speedph= distance/speed)%>%
      summarise(speedphmin=min(speedph,na.rm = TRUE),speedphemax=max(speedph,na.rm = TRUE),speedphmean=mean(speedph,na.rm=TRUE))