a3.R

#Install the package, if you havn't already done so.
install.packages('psych')

#Randomply sample the data into two parts with replacement and probability
ind = sample(2,nrow(room_n),replace = TRUE,prob = c(0.8,0.2))
train = room_n[ind==1,]
test = room_n[ind==2,]

#Predictors 
X = as.matrix(train[,-6])

#Add 1 to column
X = cbind(1,X)

#Response
Y = as.numeric(as.matrix(train[,6]))

#Plot the correlation graph. THIS WILL TAKE A LOT OF TIME. 20K rows after all
pairs.panels(room)