Hello World!

This is a demonstration GitHub page.

library(tidyverse)
library(nycflights13)

ggplot(flights,aes(x=air_time/60))+
  geom_histogram(bins=100)+
  labs(x='Hours of Air Time per Flight',
       y='Number of Flights',
       title='Demo plot using NYCFlights13 dataset')