jm <- read.table("jm.txt",head=T)
x=as.factor(jm[,1])#将目标变量转化为因子型
norm.data<-scale(jm[,2:9])#标准化
jm=merge(x,norm.data)
set.seed(1234)
data_index<-1:nrow(jm)
testindex<-sample(data_index, trunc(length(data_index)*30/100))
test_set<-jm[testindex,]#30%测试集
train_set<-jm[-testindex,]#70%训练集
size=10#隐藏节点数为10
decay=0.05#权值的衰减参数为0.05
nnet.model=nnet(jm[,1]~.,train_set,size=size,decay=decay)#建立BP神经网络
Error in model.frame.default(formula = jm[, 1] ~ ., data = train_set) :
变数的长度不一样('x')
大神们知道这什么意思吗?我的x都是1,2,3,4,5