#Lab 12 startscript for the OLS exercise. 

df.OLSdat <- read.table("OLSqData.RData")
DT <- data.table(df.OLSdat) 

summary(df.OLSdat)
summary(DT)

#Note, that you have to address the variables with DT$, otherwise you get an error. 

#Compare y1
y1

#vs. DT$y1
DT$y1

#Try for x1