systemfit包怎么设置权重？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在使用library( systemfit )包建立非线性联立方程组时
程序如下：
library( systemfit )
rd<-read.csv("2.csv")
ABOVE.formula<-ABOVE~1/(1+r1*DBH^r2*H^r3)* TOTAL
UNDER.formula<-UNDER~1/(1+(1/r1*DBH^-r2* H^-r3))*TOTAL
labels <- list( "ABOVE.formula","UNDER.formula")
inst <- ~ DBH+H+ABOVE+ UNDER+TOTAL
start.values<-c(r1=0.1,r2=0.3, r3=-0.5)
model<-list(ABOVE.formula,UNDER.formula)
model.ols <- nlsystemfit( "OLS", model, start.values, data=rd, eqnlabels=labels )
结果的残差图存在方差异性
想通过权重取出异方差，假如ABOVE.formula公式的权重是：1/DBH^1.93;UNDER.formula的为：1/DBH^1.49
那要怎么计算呢？可以把程序发给我吗？非常感谢数据2在附件中

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：System STEM Sys fit TEM library 方程组 程序

假如ABOVE.formula公式的权重是：1/DBH^1.93;UNDER.formula的为：1/DBH^1.49
那要怎么计算呢
是方程两边乘以权重吗