Patient Medicare

Make a Histogram using interquartile range for only ages >= 65

radD <- read.csv("https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/RadDat_IMSE.csv")
medata <- radD[radD$PatientAge >= 65, ]
Ti<- medata$Ordered.to.Complete...Mins

Q1 <- quantile(Ti,0.25)
Q3 <- quantile(Ti,.75)
IQR <- Ti[Ti>=Q1 & Q3]
hist(IQR)

Comparing medians

see which worker is working faster on average

median62 <- median(radD$Ordered.to.Complete...Mins[radD$Radiology.Technician == 62])
median65 <- median(radD$Ordered.to.Complete...Mins[radD$Radiology.Technician == 65])
median62
## [1] 80
median65
## [1] 27

BOX Plot