R编程问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

代码：library(deSolve)
m<-c(0,1,1,1,0,1,1,1,0)
A<-matrix(m, byrow=T, nrow=3)
A
n<-ncol(A)
n
Lorenz<-function(t,state,parameters){
  with(as.list(c(state,parameters)),{
    for (i in 1:n) {
      for (j in 1:n) {
        A1<-R*A[i][j]*X[i]*X[j]
      }
      dX[i]<-F-B*X[i]-apply(A1,1,sum)
    }
  })
  list(c(dX))
}
state=c(X=1,Y=1,Z=1)
#进行两面映射图像的设置
parameters<-c(F=-8/3,B=-100,R=0.5)
times<-seq(0,10,by=0.01)
out <- ode(y = state, times = times, func = Lorenz, parms = parameters)
out
运行出现的问题
Error in apply(A1, 1, sum) : dim(X) must have a positive length

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R编程 Library BRARY Solve bra