R软件求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有木有会rqpd软件包的

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：软件包

library(rqpd)
set.seed(10)
m <- 3
n <- 10
s <- as.factor(rep(1:n,rep(m,n)))
x <- exp(rnorm(n*m))
u <- x*rnorm(m*n) + (1-x)*rf(m*n,3,3)
a <- rep(rnorm(n),rep(m,n))
y <- a + u
fit <- rqpd(y ~ x | s, panel(lambda = 5))
sfit <- summary(fit)

# A CRE model
data(bwd)

cre.form <- dbirwt ~ smoke + dmage + agesq +
   novisit + pretri2 + pretri3 | momid3 | smoke +
   dmage + agesq

# CRE-M type fit:
crem.fit <- rqpd(cre.form, panel(method="cre"), data=bwd)

# AD type fit:
ad.fit <- rqpd(cre.form, panel(method="cre", cre="ad"), data=bwd,
  subset=bwd$idx %in% 1:2)

hifinecon 发表于 2018-6-17 09:17
library(rqpd)
set.seed(10)
m

你好，这个你能运行出结果吗？我运行的是结果是
Error in validObject(.Object) :
  invalid class “dsparseModelMatrix” object: superclass "dCsparseMatrix" not defined in the environment of the object's class

can you show me your code? the example I gave you, I have no problem with running it.

hifinecon 发表于 2018-6-18 16:09
can you show me your code? the example I gave you, I have no problem with running it.

你好，我运行结果是这样

sorry! can't help since the code is truncated and incomplete.