Added R code to generate a fake linear model of cross-sectional data. Also debugged regression code.