#Read in Files
library(readr)
firefighter <- read_csv("~/workspace/Analysis/Firefighter.csv")
View(firefighter)
# firefighter has 912 observations and 11 variables


police <- read_csv("~/workspace/Analysis/Police.csv")
View(police)
# police has 889 observations and 11 variables

#Add your code below each of the prompts below.

#----
#Perform Summary Analysis on Data

# descriptive statistics for fire fighters data
summary(firefighter)

# descriptive statistics for police data
summary(police)


#----
#For any 2 Data Columns, Perform Min/Max/Average Analysis for each data set and store in variable

# chosen columns: 1. Salaries 2. Overtime

# min salary for fire fighters
firef_min_salary <- min(firefighter$Salaries)
firef_min_salary

# max salary for fire fighters
firef_max_salary <- max(firefighter$Salaries)
firef_max_salary

# avarage salary for fire fighters
firef_avg_salary <- mean(firefighter$Salaries)
firef_avg_salary

# min overtime for fire fighters
firef_min_overtime <- min(firefighter$Overtime)
firef_min_overtime

# max overtime for fire fighters
firef_max_overtime <- max(firefighter$Overtime)
firef_max_overtime

# avarage overtime for fire fighters
firef_avg_overtime <- mean(firefighter$Overtime)
firef_avg_overtime

# min salary for police
police_min_salary <- min(police$Salaries)
police_min_salary

# max salary for police
police_max_salary <- max(police$Salaries)
police_max_salary

# avarage salary for police
police_avg_salary <- mean(police$Salaries)
police_avg_salary

# min overtime for police
police_min_overtime <- min(police$Overtime)
police_min_overtime

# max overtime for police
police_max_overtime <- max(police$Overtime)
police_max_overtime

# avarage overtime for police
police_avg_overtime <- mean(police$Overtime)
police_avg_overtime

#----
#Compare Dataset Values 

# min salary
firef_min_salary > police_min_salary
abs(firef_min_salary - police_min_salary)
# minimum salary for both is 0

# max salary
firef_max_salary > police_max_salary
abs(firef_max_salary - police_max_salary)
# fire fighter has higher max salary compared to that of police
# the difference is 9032.5

# average salary
firef_avg_salary > police_avg_salary
abs(firef_avg_salary - police_avg_salary)
# fire fighter has higher average salary compared to that of police
# the difference is 26334.52

# min overtime
firef_min_overtime > police_min_overtime
abs(firef_min_overtime - police_min_overtime)
# minimum overtime for both is 0

# max overtime
firef_max_overtime > police_max_overtime
abs(firef_max_overtime - police_max_overtime)
# fire fighter has higher max overtime compared to that of police
# the difference is 43752.93

# average overtime
firef_avg_overtime > police_avg_overtime
abs(firef_avg_overtime - police_avg_overtime)
# fire fighter has higher average overtime compared to that of police
# the difference is 15618.39