setwd("d:/data")
> w=read.delim("mg.txt")
> a=lm(y~.,w)
> cor(w)
CV=function(n,Z=10,seed=888){
+ z=rep(1:Z,ceiling(n/Z))[1:n];set.seed(seed);z=sample(z,n)
+ mm=list();for(i in 1:Z) mm[]=(1:n)[z==i];return(mm)}
> w=read.delim("mg.txt");n=nrow(w);Z=10;mm=CV(n,Z);D=1
> library(randomForest);MSE=rep(0,Z)
> set.seed(1010);for(i in 1:Z)
+ {m=mm[];M=mean((w[m,D]-mean(w[m,D]))^2)
+ a=randomForest(y~.,data=w[-m,])
+ MSE=mean((w[m,D]-predict(a,w[m,]))^2/M }
Error: unexpected '}' in:
"a=randomForest(y~.,data=w[-m,])
MSE=mean((w[m,D]-predict(a,w[m,]))^2/M }"
为什么就是总不识别}?直接带入csv文件还带不进去 要哭了!求帮忙!!


雷达卡




京公网安备 11010802022788号







