Data Cleaning

The Medicare Histogram Of Patients 65yrs Or Older

Medicare <-Rad.Filter[Rad.Filter$PatientAge>=65,]
Med.summary <-summary(Medicare$Ordered.to.Complete...Mins)
q1<-Med.summary["1st Qu."]
q3<-Med.summary["3rd Qu."]
Medicare.IQR<- Medicare[Medicare$Ordered.to.Complete...Mins >= q1 & Medicare$Ordered.to.Complete...Mins <= q3, ]
hist(Medicare.IQR$Ordered.to.Complete...Mins,
     main="XRay Completion Time For Medicare Patients",
     xlab="Completion Times (Mins)",
     col="Red")

I notice the histogram is positively skewed in which means that most of the XRay orders for the medicare patients withing the 1st n 3rd IQR are completed pretty quickly compared to others.

Technician Median Comparison

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

So based out on these two outputs that compare the performance of Technician 62 to 65 that , Technician 65 completes the job significantly faster than 62. Technician 65 hs a median completion of 27 minutes while Technician 62 has their median much longer with a completion of 80 min.

STAT vs. Boxplot

boxplot(PatientAge ~ Priority, data = Rad.Filter, 
        main="Patient Age by X-Ray Order Priority", 
        xlab="Priority Level (STAT vs. Routine)", 
        ylab="Patient Age (Years)", 
        col=c("lightblue", "lightgreen"))

Reading these box plots, I can for sure see that patients either receiving Routine X Ray orders tend to be on the older side. We can also see that the Routine median line inside the box sits bit higher than STAT’s on the y axis , indicating that theirs a higher overall age for those patients.

3W compared to 4W

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

Of this calculation ,we can see that the floor 4W takes on average longer to complete the XRay orders, with a mean completion of 1675.451 mins compared to the 3W average of 1463.051 mins. Additionally , floor 4W has a higher standard deviation of 4387.644 mins, indicating that its completion was more inconsistent and could vary more widely than other floor.