commit 9d3ed2bac8830c704e398e0387046a728457d233
Author: SowinskiBraeden <braeden@sowinski.dev>
Date:   Wed Jan 21 16:43:11 2026 -0800

    lab01

diff --git a/lab01.R b/lab01.R
new file mode 100644
index 0000000..5859390
--- /dev/null
+++ b/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)
+