机器学习（Machine Learning and Data Mining）CS 5751——Lab1作业记录

Activity3

绘制散点图矩阵，显示属性之间的相关性：
mpg，hp，disp，drat，wt，qsec。 使用散点图，评论哪些属性对具有最高的相关性。

plot(mtcars$wt, mtcars$mpg,  main="WT vs. MPG", xlab="Weight (1000 lbs)",  ylab="Miles/(US) gallon ", pch=19)

cor(mtcars$wt, mtcars$mpg)

Another method to do Activity3

pairs(~mpg+disp+drat+wt+qsec,data=mtcars,main="Activity3")

mydata<-mtcars[,c(1,3,4,5,6,7)]
cor(mydata)