R语言代码报错求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

##归因危险度
library(survival)
set.seed(123)
total <- nutrDII0[,c("DII","age","sex","Townsend_index","race","BMI","MET","pack_smoking",
                     "familiy_cancer","assess_centre","education","cancer_all","survival_all")]
total$DIIpar <- ifelse(total$DII<"-1",0,ifelse(total$DII>="-1"&total$DII<=1,1,2))
#创建生存对象
#total$survival_all <- as.numeric(total$survival_all)
#total$cancer_all <- as.factor(total$cancer_all)
surv_obj <- with(total,Surv(survival_all,cancer_all))
#拟合生存模型
fit <- survfit(surv_obj~as.factor(DIIpar)+as.numeric(age) +
                 as.factor(sex) + as.numeric(Townsend_index) +
                 as.factor(race)  + as.numeric(BMI) + as.numeric(MET) +
                 as.factor(familiy_cancer) +as.factor(education) +
                 as.factor(assess_centre)+as.factor(pack_smoking),data=total)
par_estimation <- par(fit)
print(par_estimation)
运行上述代码后出现“[size=13.3333px]Error: cannot allocate vector of size 5569.7 Gb”报错情况，怎么解决啊啊啊啊啊

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 Survival Library Total BRARY