set.seed$(8336)$

my$.$flights $<-$ slice$\_$sample$($flights$,$n$=100000)$

#$4\mathrm{.}1.(2$ point$)$ How many flights had an arrival delay of two or more hours?

# $4\mathrm{.}1\mathrm{.}1$ My code for $4\mathrm{.}1$ is: