今日份model

S=(1-(exp(ar)))^b+c
a=b=1c=0时,曲线是一条非常接近x=0的曲线而近似于一条直线。当r=0时,s=0,函数经过原点。当r逐渐变大,s为负数。

a <- 1; b <- 1; c <- 0
range(s)
[1] -1.71828  0.00000

参数b的改变对曲线形态的影响

c=0, a=1

  1. b为偶数时,y>0,且当b>0时,b的取值越大,曲线的弧度越大。当b<0时,y似乎为无穷大。当|b|越大,曲线的拐点似乎在右方移动,然而随着|b|越大,移动的越慢。且当b>0b<0时其改变的速率并不相同。
  2. b为奇数时,y<0。当b<0时,y似乎为无穷大。
    图1 a=1, c=0, b改变时的不同曲线

参数a的改变对曲线形态的影响

  1. c=0, b=8,当a越大(a>0),曲线的拐点越陡峭,越靠近原点附近。y的最大值增速加大。
    a<0,有y_{max}==1
    图2 b=8, c=0, a改变时的不同曲线
  2. c=0, b=-2,a越大(a>0),曲线的拐点越明显,越靠近原点附近。
    a<0|a|越大拐点接近于直角,越靠近原点。
    图3 b=-2, c=0, a改变时的不同曲线

应用:

使用抽样调查时,r代表调查面积或调查的群体的相对大小。S指代调查得到的物种丰富度,或相对物种丰富度等。
应用的数据集如下:

> spC
      X          r   obv    lo    hi   method
1     1 0.00137174 -0.95 -0.95 -0.95 Circular
2     2 0.00274348 -0.90 -0.95 -0.90 Circular
3     3 0.00411523 -0.85 -0.95 -0.85 Circular
4     4 0.00548697 -0.80 -0.90 -0.80 Circular
5     5 0.00685871 -0.80 -0.90 -0.75 Circular
6     6 0.00823045 -0.75 -0.85 -0.70 Circular

其中obv列为因变量,也就是观测到的结果。lo列为每组观测最低值,hi为每组观测最大值。method列为不同方法,该数据包含C和N两种方法。
数据的散点图分布如下:

图5 数据分布

其中蓝色代表了传统的C方法,红色代表了新的N方法,在这里y轴代表了调查结果(或者说估计结果)与真实结果之间的相对偏差,即:

由于在相对更小面积下调查得到的物种丰富度一定小于真实数量,故y总是小于0。我们想比较这两种方法的优劣,显而易见的是红色的方法更容易达到偏差为0,也就是说,红色的方法在相对更小的调查面积上,得到更接近真实水平的物种丰富度。
根据不同的方法分别对obv和r分别利用公式(1)进行拟合,使用R自带的nls函数。

fitSpC <- nls(obv ~ (1-(exp(a*r)))^b+c, data=spC, start = list(a=-12, b=0.5, c=-1))
summary(fitSpC)
Formula: obv ~ (1 - (exp(a * r)))^b + c

Parameters:
   Estimate Std. Error t value Pr(>|t|)    
a -12.68614    0.28277   -44.9   <2e-16 ***
b   0.47152    0.00952    49.5   <2e-16 ***
c  -1.01146    0.00100 -1008.9   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.0225 on 726 degrees of freedom

Number of iterations to convergence: 10 
Achieved convergence tolerance: 5.54e-06

cor(spC$obv, predict(fitSpC))
[1] 0.983294

fitSpN <- nls(obv ~ (1-(exp(a*r)))^b+c, data=spN, start = list(a=-63, b=0.5, c=-1))
summary(fitSpN)
Formula: obv ~ (1 - (exp(a * r)))^b + c

Parameters:
   Estimate Std. Error t value Pr(>|t|)    
a -6.40e+01   8.17e-01   -78.3   <2e-16 ***
b  5.73e-01   7.63e-03    75.1   <2e-16 ***
c -1.00e+00   2.61e-04 -3833.1   <2e-16 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.00682 on 726 degrees of freedom

Number of iterations to convergence: 5 
Achieved convergence tolerance: 9.93e-06
cor(spN$obv, predict(fitSpN))```
[1] 0.993705
图6 散点分布图与拟合曲线
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 219,366评论 6 508
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 93,521评论 3 395
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 165,689评论 0 356
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,925评论 1 295
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,942评论 6 392
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,727评论 1 305
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,447评论 3 420
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 39,349评论 0 276
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,820评论 1 317
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,990评论 3 337
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 40,127评论 1 351
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,812评论 5 346
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,471评论 3 331
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 32,017评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 33,142评论 1 272
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 48,388评论 3 373
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 45,066评论 2 355

推荐阅读更多精彩内容