Updating the 2004 Nature paper on gender and Olympic 100 meter times

data=Import["/Users/Carl/Dropbox/Courses/Calling_BS/gender_and_100m_times.csv","CSV"];

data//TableForm

women =Transpose[{Transpose[data][[1]],Transpose[data][[3]]}]

womenafter={{2008,10.78`},{2012,10.75`},{2016,10.71`}}

men=Transpose[{Transpose[data][[1]],Transpose[data][[2]]}]

menafter={{2008,9.69`},{2012,9.63`},{2016,9.81`}}

fullwomenModel=LinearModelFit[Select[women,#[[2]]>0&],x,x]
fullmenModel=LinearModelFit[Select[men,#[[2]]>0&],x,x]

fullwomenLine[xx_]:=Normal[fullwomenModel]/.x->xx
fullmenLine[xx_]:=Normal[fullmenModel]/.x->xx

womenModel=LinearModelFit[Drop[Select[women,#[[2]]>0&],-3],x,x]
menModel=LinearModelFit[Drop[Select[men,#[[2]]>0&],-3],x,x]

womenLine[xx_]:=Normal[womenModel]/.x->xx
menLine[xx_]:=Normal[menModel]/.x->xx

Legended[Show[ListPlot[{Drop[women,-3],Drop[men,-3],womenafter,menafter},PlotRange->{{1896,2160},{13,7.5}},AxesOrigin->{1896,6},Frame->True,PlotStyle->{ColorData["HTML"]["Crimson"],ColorData["HTML"]["MediumBlue"],ColorData["HTML"]["Orange"],ColorData["HTML"]["MediumAquamarine"]},ImageSize->1000],
Plot[{womenLine[x],menLine[x],fullwomenLine[x],fullmenLine[x]},{x,1896,2160},PlotStyle->{ColorData["HTML"]["Crimson"],ColorData["HTML"]["MediumBlue"],ColorData["HTML"]["Orange"],ColorData["HTML"]["MediumAquamarine"]}],AxesLabel->{"Year","Time (sec)"},ImageSize->Large,LabelStyle->{FontFamily->"Gill Sans",13,GrayLevel[0.3]}],Placed[PointLegend[{ColorData["HTML"]["Crimson"],ColorData["HTML"]["MediumBlue"]},{"Women","Men"},LegendMarkerSize->20,LabelStyle->{FontFamily->"Gill Sans",18,GrayLevel[0.3]}],{{.8,.7}}]]

ColorData["HTML"]["Crimson"]

Solve[womenLine[x]==menLine[x],x]

Reciprocal (1/x) fit

expWomenModel=LinearModelFit[Drop[Select[women,#[[2]]>0&],-3],1/x,x]
expMenModel=LinearModelFit[Drop[Select[men,#[[2]]>0&],-3],1/x,x]

expWomenLine[xx_]:=Normal[expWomenModel]/.x->xx
expMenLine[xx_]:=Normal[expMenModel]/.x->xx

Legended[Show[ListPlot[{Drop[women,-3],Drop[men,-3],womenafter,menafter},PlotRange->{{1896,2400},{13,6}},AxesOrigin->{1896,6},Frame->True,PlotStyle->{ColorData["HTML"]["Crimson"],ColorData["HTML"]["MediumBlue"],ColorData["HTML"]["Orange"],ColorData["HTML"]["MediumAquamarine"]},ImageSize->1000],
Plot[{expWomenLine[x],expMenLine[x]},{x,1896,2400},PlotStyle->{ColorData["HTML"]["Crimson"],ColorData["HTML"]["MediumBlue"],ColorData["HTML"]["Orange"],ColorData["HTML"]["MediumAquamarine"]}],AxesLabel->{"Year","Time (sec)"},ImageSize->Large,LabelStyle->{FontFamily->"Gill Sans",13,GrayLevel[0.3]}],Placed[PointLegend[{ColorData["HTML"]["Crimson"],ColorData["HTML"]["MediumBlue"]},{"Women","Men"},LegendMarkerSize->20,LabelStyle->{FontFamily->"Gill Sans",18,GrayLevel[0.3]}],{{.8,.7}}]]