机器学习(Machine Learning and Data Mining)CS 5751——Lab3作业记录
Activity 1-最小二乘线性回归
最小二乘线性回归Least-squares linear regression
(1)导入数据
从UCI网站下载Concrete Slump Testdataset
#导入数据
slump_dataset <-read.csv("slump_test.data", header=TRUE, stringsAsFactor=FALSE, na.strings =c('0'))
# preview the first 5 rows
head(slump_dataset)
(2)实现最小二乘法
# t1 is the attribute chosed
# Z is the result
least_squares_linear_regression <- function(H,Z){
reslut <- solve(t(H)%*%H)%*%t(H)%*%Z
return(result)
}