R做非线性分析时可以直接除以权函数吗

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

用R作非线性分析时：
nls.sol<-nls(TOTAL~a*DBH^b,data=rd,start=list(a=0.01,b=2))

现在知道他们的权重了，可以直接除以权重吗？

nls.sol<-nls(TOTAL*1/DBH^1.86~a*DBH^b*1/DBH^1.86,data=rd,start=list(a=0.01,b=2))

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：非线性 权函数 nls SOL

嗯，可以。。。

waveland 发表于 2013-1-22 16:54
嗯，可以。。。

在使用library( systemfit )包建立非线性联立方程组时
程序如下：
library( systemfit )
rd<-read.csv("5.csv")
LEAF.formula<- LEAF~ 1/( 1+ r1*DBH^r2*H^r3*CW^r4)* CWB
BRANCH.formula<-BRANCH~1/( 1+(1/ r1*DBH^-r2*H^-r3*CW^-r4))* CWB
labels <- list("LEAF.formula", "BRANCH.formula")
inst <- ~ DBH+H+CW+LEAF+BRANCH
start.values<-c(r1=0.4,r2=0.9, r3=-0.2,r4=-1.0)
model<-list(LEAF.formula, BRANCH.formula)
model.ols <- nlsystemfit( "OLS", model, start.values, data=rd, eqnlabels=labels )
我用权重后精度怎么降低了
相关系数成负数了，请问怎么回事

library( systemfit )
rd<-read.csv("4444.csv")
LEAF.formula<- LEAF*1/DBH^0.23~ 1/( 1+ r1*DBH^r2*H^r3*CW^r4)* CWB*1/DBH^0.23
BRANCH.formula<-BRANCH*1/DBH^0.96~1/( 1+(1/ r1*DBH^-r2*H^-r3*CW^-r4))* CWB*1/DBH^0.96
labels <- list("LEAF.formula", "BRANCH.formula")
inst <- ~ DBH+H+CW+LEAF+BRANCH
start.values<-c(r1=0.4,r2=0.9, r3=-0.2,r4=-1.0)
model<-list(LEAF.formula, BRANCH.formula)
model.ols <- nlsystemfit( "OLS", model, start.values, data=rd, eqnlabels=labels )

xingzhaoh 发表于 2013-1-22 18:50
在使用library( systemfit )包建立非线性联立方程组时
程序如下：
library( systemfit )

https://bbs.pinggu.org/thread-2177875-1-1.html
指点一下这个问题可以吗？