请问这几步什么意思??x, y,theta.fit,theta.predict 各代表什么??为什么这样算??
theta.fit<- function(x,y){lsfit(x,y)} 最小二乘法??
theta.predict<- function(fit,x){cbind(1,x)% * % fit$coef} 合并后的矩阵和回归模型的系数矩阵相乘??
x<-fit$model [, 2:ncol(fit$model) ] 训练样本?
y<-fit$model[,1] 保留样本?
results <- crossval(x, y, theta.fit, theta.predict, ngroup=k)
r2 <- cor(y , fit$fitted.values)^2 初始R平方
r2cv <- cor(y , results$cv.fit)^2 交叉验证的R平方