lab01

lab01.R

@@ -0,0 +1,29 @@
+#install.packages("mosaic")
+
+library(mosaic)
+library(mosaicData)
+library(dplyr)
+library(stringi)
+
+# Q1
+fastrunners=filter(TenMileRace, net<4000)
+
+# Q2
+femalerunners=filter(TenMileRace, sex=="F")
+foreignrunners=filter(TenMileRace, stri_length(state) >= 3)
+
+# Q3
+table(TenMileRace$state)
+
+# Q4
+fastestfemale=min(femalerunners$net)
+malerunners=filter(TenMileRace, sex=="M")
+fastermales=filter(malerunners, net < fastestfemale)
+nrow(fastermales)
+
+# Q5
+numrunners=nrow(TenMileRace)
+fifthpercentile=0.05 * numrunners
+typcialrunners=filter(TenMileRace, rank(net) > fifthpercentile & rank(net) < (numrunners - fifthpercentile))
+hist(typcialrunners$net)
+