【发布时间】:2019-05-13 14:37:38
【问题描述】:
我正在尝试使用以下功能执行 Egger 测试:
eggers.test<-function(data){data<-data
eggers<-metabias(data)
intercept<-as.numeric(eggers$estimate[1])
intercept<-round(intercept,digits=3)
se.intercept<-eggers$estimate[2]
lower.intercept<-as.numeric(intercept-1.96*se.intercept)
lower.intercept<-round(lower.intercept,digits = 2)
higher.intercept<-as.numeric(intercept+1.96*se.intercept)
higher.intercept<-round(higher.intercept,digits = 2)
ci.intercept<-paste(lower.intercept,"-",higher.intercept)
ci.intercept<-gsub(" ", "", ci.intercept, fixed = TRUE)
intercept.pval<-as.numeric(eggers$p.value)
intercept.pval<-round(intercept.pval,digits=5)
eggers.output<-data.frame(intercept,ci.intercept, intercept.pval)
names(eggers.output)<-c("intercept","95%CI","p-value")
title<-"Results of Egger's test of the intercept"
print(title)
print(eggers.output)
}
只有当我在台阶上时:
eggers.output
R 给出以下错误: data.frame 中的错误(intercept,ci.intercept,intercept.pval):
参数暗示不同的行数:0、1
如果有人能帮我解决这个问题,我将不胜感激。
【问题讨论】:
标签: r function dataframe meta metafor