- 在线时间
- 7 小时
- 最后登录
- 2013-7-2
- 注册时间
- 2013-6-17
- 听众数
- 5
- 收听数
- 0
- 能力
- 0 分
- 体力
- 106 点
- 威望
- 0 点
- 阅读权限
- 20
- 积分
- 46
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 28
- 主题
- 4
- 精华
- 0
- 分享
- 0
- 好友
- 2
升级   43.16% TA的每日心情 | 奋斗 2013-7-2 00:08 |
|---|
签到天数: 11 天 [LV.3]偶尔看看II
- 自我介绍
- 没什么好介绍的
 |
> ricker<-function(nzero,r,K=1,time=100,from=0,to=time){N<-numeric(time+1)/ I7 |5 ^4 X' b3 z# }! u4 ]( P, P6 v
+ N[1]<-nzero; J% o: R7 b7 t9 S8 p ~ \
+ for(i in 1:time) N[i+1]<-N*exp(r*(1-N/K)
5 v+ u' C( a r0 }( f+ Time<0:time
& U2 s! L3 j! P+ h k5 P; n# y: A> Time<-0:time
: y! {8 e: w& g0 P% q8 L# CError in 0:time : NA/NaN argument
{; Y/ e& n$ {" b! n9 c9 x1 }(真心不知道上面问题出在哪里了)+ `+ W( |/ t- T. ~
> plot(N,type="1",xlim=c(from,to))( W" ^8 P8 k( O. k) Q- q/ _5 |* ?# l
Error in plot(N, type = "1", xlim = c(from, to)) : object 'N' not found
3 J2 }+ W' j. R9 I; {(擦,N咋就not found ,还有本来打算在plot Time,因为Time 有问题就没有输入,我是刚学R暗宅书上代码敲得,不知道为什么不能运行 |
zan
|