url <- "https://raw.githubusercontent.com/tmatis12/datafiles/refs/heads/main/RadDat_IMSE.csv"
data <- read.csv(url)

medicare <- subset(data, PatientAge >= 65) q1 <- quantile(medicare\(Ordered.to.Complete...Mins, 0.25, na.rm = TRUE) q3 <- quantile(medicare\)Ordered.to.Complete…Mins, 0.75, na.rm = TRUE)

Histogram of X-Ray Completion Times

medicare_iqr <- subset(medicare, Ordered.to.Complete…Mins >= q1 & Ordered.to.Complete…Mins <= q3) hist(medicare_iqr$Ordered.to.Complete…Mins, main = “Histogram of X-Ray Completion Times (Medicare Patients, IQR Range)”, xlab = “Minutes to Complete”, col = “lightblue”, breaks = 15)

Question 2

techs <- subset(data, Radiology.Technician %in% c(62, 63, 64, 65)) aggregate(Ordered.to.Complete…Mins ~ Radiology.Technician, data = techs, median)

Question 3

boxplot(PatientAge ~ Priority, data = data, main = “Patient Age by X-Ray Priority”, ylab = “Patient Age”, xlab = “Order Priority”, col = c(“lightgreen”, “lightcoral”))

Question 4

floor3W <- subset(data, Loc.At.Exam.Complete == “3W”) floor4W <- subset(data, Loc.At.Exam.Complete == “4W”)

mean_3W <- mean(floor3W\(Ordered.to.Complete...Mins, na.rm = TRUE) sd_3W <- sd(floor3W\)Ordered.to.Complete…Mins, na.rm = TRUE)

mean_4W <- mean(floor4W\(Ordered.to.Complete...Mins, na.rm = TRUE) sd_4W <- sd(floor4W\)Ordered.to.Complete…Mins, na.rm = TRUE)

cat(“3W: Mean =”, round(mean_3W, 2), ” | SD =“, round(sd_3W, 2),”“) cat(”4W: Mean =“, round(mean_4W, 2),” | SD =“, round(sd_4W, 2))