# Create separate data frames for males and females with a suffix

males $<-$ cef$\_$fvm $\%>\%$

filter$($gender $==$ "male"$)\%>\%$

rename$($earnings$\_$male $=$ earnings$)\%>\%$

select$(-$earnings$)$

females $<-$ cef$\_$fvm $\%>\%$

filter$($gender $==$ "female"$)\%>\%$

rename$($earnings$\_$female $=$ earnings$)\%>\%$

select$(-$earnings$)$

# Join male & female data frames on 'age' & calc. the ratio

df$\_$ratio $<-$ inner$\_$join$($males$,$ females, by $=$ "age"$)\%>\%$

mutate$($ratio $=$ earnings$\_$male $/$ earnings$\_$female $)$

# Display the table you created

df$\_$ratio