0

抱歉,如果这是一个重复的问题,但我无法从其他帖子中弄清楚,因为我仍在学习 R。我想将 3 条随机线放在图上,但是当我运行我的代码时,它只绘制第 3 行在原图上。

我的代码......

r=0.19
N=rep(0,50)
N[1]=13
K=130
for(t in 1:50){
N[t+1]= N[t] + N[t]*r*(1-(N[t]/K))}
plot(1:51, N, type="l", lwd=3, xlab="Time")

K=130
Ns=rep(0,50)
Ns[1]=13
for(t in 1:50){
r=rnorm(1, .19, 0.13)
Ns[t+1]= Ns[t] + Ns[t]*r*(1-(Ns[t]/K))}
plot(1:51, N, type="l", lwd=3, xlab="Time")
lines(1:51, Ns, lwd=3, col='blue')
lines(1:51, Ns, lwd=3, col='green')
lines(1:51, Ns, lwd=3, col='red')
4

1 回答 1

0

您没有重新生成随机参数,因此所有行都使用相同的Ns. 也就是说,它们被淹没在彼此之上,而你只能看到其中一个。

于 2013-04-17T01:29:14.510 回答