x=read.table("dlsj.txt");t=read.table("cssj.txt") # 读入数据#
y=x$V1                                            #y是输出数据#
x1=x$V2                                           #x1到x4是输入数据#
x2=x$V3                             
x3=x$V4                             
x4=x$V5
cs=t$V1                                         #cs是用来预测的输出#
t1=t$V2                                         #t1到t4是用来预测的输入#
t2=t$V3                             
t3=t$V4                             
t4=t$V5
p=data.frame(x1,x2,x3,x4)
tt=data.frame(t1,t2,t3,t4)
net=newff(n.neurons=c(3,1,1),learning.rate.global=0.1,momentum.global=0.4,
error.criterium="LMS",Stao=NA,hidden.layer="tansig",
output.layer="tansig",method="ADAPTgdwm")
jm=train(net,p,y,error.criterium="LMS",report=TRUE,show.step=100,n.shows=5)#就是在这一步报错#
k=data.frame(x1=t1,x2=t2,x3=t3,x4=t4)
z=sim(jm$net,k)
new=data.frame(x1=0,x2=1,x4=1)
sim(jm$net,new)
报错形式为：
Error in train.method(net, P, T, show.step, n.threads = n.threads) :
  REAL() can only be applied to a 'numeric', not a 'integer'
> k=data.frame(x1=t1,x2=t2,x3=t3,x4=t4)
> z=sim(jm$net,k)
Error in sim(jm$net, k) : 找不到对象'jm'
> new=data.frame(x1=0,x2=1,x4=1)
> sim(jm$net,new)
Error in sim(jm$net, new) : 找不到对象'jm'

有没有大神帮忙看下错在那里 ，成分感激。。。