Percentage function present when it should not be

[jlgraves-ubc]

This code:

percentage_table <- SFS_data %>%
    group_by(education) %>%
    group_modify(~ data.frame(wealth_gap = 
                    mean(filter(., gender == "Female")$wealth)/mean(filter(., gender == "Male")$wealth) - 1)) %>%
    mutate(wealth_gap = label_percent(wealth_gap))
    

percentage_table

will not run due to the label_percent(wealth_gap) function. Needs to be deleted.

[jlgraves-ubc]

This is in ECON 326 Notebook 1