楼主: 子衿1219
1533 2

[问答] 无法调用函数 [推广有奖]

  • 1关注
  • 4粉丝

讲师

70%

还不是VIP/贵宾

-

威望
0
论坛币
60 个
通用积分
1.0023
学术水平
2 点
热心指数
0 点
信用等级
1 点
经验
13521 点
帖子
326
精华
0
在线时间
431 小时
注册时间
2012-3-19
最后登录
2018-7-8

楼主
子衿1219 发表于 2017-3-22 15:54:43 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
正常加载package: SIS 之后,没办法调用里面的函数。code 如下
library("SIS")
set.seed(0)
n=400
p=1000
truerho=0.5
beta <- c(4,4,4,-6*sqrt(2),4/3, rep(0,p-5))

corrmat=diag(rep(1-truerho, p))+matrix(truerho, p, p)
corrmat[,4]=sqrt(truerho)
corrmat[4, ]=sqrt(truerho)
corrmat[4,4]=1
corrmat[,5]=0
corrmat[5,]=0
corrmat[5,5]=1
cholmat=chol(corrmat)
x=matrix(rnorm(p*n, mean=0, sd=1), n, p)
x=x%*%cholmat
myrates <- exp(x%*%beta)
ytrue <- rexp(n, rate = myrates)
cen <- rexp(n, rate = 0.1 )
time <- pmin(ytrue, cen)
status <- as.numeric(ytrue <= cen)
weights <- rep(0.01*n, 100)
w1 <- wtlassocox(x[,1:100],time,status,lassoweight=weights)$w
w2 <- coxph(Surv(time,status)~x[,1:100])$coef



报错:没有"wtlassocox"这个函数
二维码

扫码加我 拉你入群

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

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

关键词:package Library BRARY beta seed library package matrix status

沙发
qoiqpwqr 发表于 2017-3-22 23:04:45
wtlassocox似乎不是SIS包里的函数。但是http://artax.karlin.mff.cuni.cz/r-help/library/SIS/html/wtlassocox.html这里似乎又是。我也不知道怎么回事,可能是在老版的包里,新版的被拿掉了吧。

藤椅
子衿1219 发表于 2017-3-26 11:53:40
qoiqpwqr 发表于 2017-3-22 23:04
wtlassocox似乎不是SIS包里的函数。但是http://artax.karlin.mff.cuni.cz/r-help/library/SIS/html/wtlasso ...
询问作者之后,确实这样。谢谢。

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2025-12-9 07:10