Homework 5

R Markdown

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

Question 1

medicare <- subset(RadDat_IMSE, PatientAge>=65)
q1 <- quantile(medicare$Ordered.to.Complete...Mins,0.25)
q3 <- quantile(medicare$Ordered.to.Complete...Mins,0.75)
medicare_iqr <- subset(medicare, Ordered.to.Complete...Mins >=q1&Ordered.to.Complete...Mins<=q3)
hist(medicare_iqr$Ordered.to.Complete...Mins, main="Completion",xlab="Minutes",ylab="Frequency")

Question 2

tech62 <- subset(RadDat_IMSE, Radiology.Technician==62)
tech65 <- subset(RadDat_IMSE, Radiology.Technician==65)
median62 <- median(tech62$Ordered.to.Complete...Mins)
median65 <- median(tech65$Ordered.to.Complete...Mins)

Question 3

boxplot(PatientAge~Priority, data=RadDat_IMSE, main="Patient Age",xlab="Priority",ylab="Patient Age")

Question 4

floor3w <- subset(RadDat_IMSE, Loc.At.Exam.Complete=="3w")
floor4w <- subset(RadDat_IMSE, Loc.At.Exam.Complete=="4w")
mean3w <- mean(floor3w$Ordered.to.Complete...Mins)
"3w" <- sd(floor3w$Ordered.to.Complete...Mins)
mean4w <- mean(floor4w$Ordered.to.Complete...Mins)
"4w" <- sd(floor4w$Ordered.to.Complete...Mins)