# Student questionaire data 
# Evaluation

buffer<-read.csv("data/Student_questionaire_results.csv")

# let's see if there is a correlation between 
# the number of MAT and number of ATM courses

plot(buffer$ATM,buffer$MAT)
res<-lm(buffer$MAT ~ buffer$ATM)
print(summary(res))
lines(buffer$ATM,res$fitted,col=4,lwd=4)