1 Question 1

dat<-read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/RadDat_IMSE.csv")
hist(dat$Ordered.to.Complete...Mins[dat$PatientAge>=65],main= "Histogram Time for Medicare Patients",xlab= "Minutes to be treated", breaks=10)

It appears that nearly all orders appear in the first break of the histogram.

2 Question 2

median(dat$Ordered.to.Complete...Mins[dat$Radiology.Technician==62])
## [1] 80
median(dat$Ordered.to.Complete...Mins[dat$Radiology.Technician==65])
## [1] 27

Based off the median time technician number 65 has a median time of 27 minutes to complete an order. This is much better than technician 62.

3 Question 3

boxplot(dat$PatientAge[dat$Priority=="STAT"],main= "Box Plot of Stat", ylab = "age")

boxplot(dat$PatientAge[dat$Priority=="Routine"],main= "Box Plot of Routine", ylab = "age")

Based on the plots people with routine are typically older and it covers a smaller age range. People with STAT are a broader range and goes lower on the ages. They also are not extremely different.

4 Question 4

mean(dat$Ordered.to.Complete...Mins[dat$Loc.At.Exam.Complete=="3W"])
## [1] 1463.051
sd(dat$Ordered.to.Complete...Mins[dat$Loc.At.Exam.Complete=="3W"])
## [1] 3894.639
mean(dat$Ordered.to.Complete...Mins[dat$Loc.At.Exam.Complete=="4W"])
## [1] 1675.451
sd(dat$Ordered.to.Complete...Mins[dat$Loc.At.Exam.Complete=="4W"])
## [1] 4387.644

Based off the mean and standard deviation floor 3W is faster on average.It is also more consistent as it has smaller standard deviation.