#Read in Files

library$($readr$)$

#Adjust the file name and file path below for each of the $2$ files. Use the same file read code from Milestone Two

firefighter $<-$ read$\_$csv$("$~$/$SNHU$/$DAT$-500/$Milestones$/$dat$500\_$milestone$\_$two$\_$data$\_$firefighter.csv$")$

View$($firefighter$)$

police $<-$ read$\_$csv$("$~$/$SNHU$/$DAT$-500/$Milestones$/$dat$500\_$milestone$\_$two$\_$data$\_$police.csv$")$

View$($police$)$

#Adjust the sample field names and variable names below to be the same fields used in Milestone Two

polTotSalMin$<-$min$($police$$`$Total Salary$`)$

polTotSalMax$<-$max$($police$$`$Total Salary$`)$

polTotSalAvg$<-$mean$($police$$`$Total Salary$`)$

ffTotSalMin$<-$min$($firefighter$$`$Total Salary$`)$

ffTotSalMax$<-$max$($firefighter$$`$Total Salary$`)$

ffTotSalAvg$<-$mean$($firefighter$$`$Total Salary$`)$

polRetMin$<-$min$($police$Retirement$)$

polRetlMax$<-$max$($police$Retirement$)$

polRetAvg$<-$mean$($police$Retirement$)$

ffRetMin$<-$min$($firefighter$Retirement$)$

ffRetMax$<-$max$($firefighter$Retirement$)$

ffRetAvg$<-$mean$($firefighter$Retirement$)$