powered by
wages1833
attach(wages1833) plot(mwage~age,ylim=range(c(mwage,fwage[fwage>0]))) points(fwage[fwage>0]~age[fwage>0],pch=15,col="red") lines(lowess(age,mwage)) lines(lowess(age[fwage>0],fwage[fwage>0]),col="red")
Run the code above in your browser using DataLab