lww1993 发表于 2014-6-28 22:06 
ranfor
按照您说的代码 实验了一下 感觉很纠结 预测出来的数据 比较差
代码:
bjdata1<-read.csv('d:/data/BJtrain1.csv',header=TRUE)
bjdata2<-read.csv('d:/data/BJtest1.csv',header=TRUE)
library(randomForest)
ranfor<-randomForest(keyunliang~.,data=bjdata1,ntree=1000,mtry=2,importance=TRUE)
print(ranfor)
pred<-predict(ranfor,bjdata2)
print(pred)
我的数据时23年 北京市的数据
运行后的结果为:
Call:
randomForest(formula = keyunliang ~ ., data = bjdata1, ntree = 1000, mtry = 3, importance = TRUE)
Type of random forest: regression
Number of trees: 1000
No. of variables tried at each split: 3
Mean of squared residuals: 9533151
% Var explained: 93.98
> pred<-predict(ranfor,bjdata2)
> print(pred)
1 2 3 4 5 6 7 8
41356.59 41285.34 41190.71 41307.75 NA NA NA NA
9 10 11 12 13 14 15 16
NA NA NA NA NA NA NA NA
17 18 19
NA NA NA
我感觉是不是我的代码有错误 因为 后面的结果 19个 NA
按理说应该就是输出4个值才对啊 我是 11个输入 变量 预测一个输出