a<-c("Event N","OS% (5%CI, 95%CI)","P")
for(i in 4:dim(data1998)[2]){
fit1<-survfit(Surv(months,BCSS==1)~tumorinnervsouter,subset=(data1998[,i]==1),data=data1998)
p<-survdiff(Surv(months,BCSS==1)~tumorinnervsouter,rho=0,subset=(data1998[,i]==1),data=data1998)
tbl1<-tbl_survfit(fit1,times=120)%>%add_nevent()
a<-rbind(a,c(
inline_text(tbl1,column = nevent),
inline_text(tbl1,time =120, level = "2"),
1-pchisq(p$chisq,length(p$n)-1)))
}
目前bl1<-tbl_survfit(fit1,times=120)%>%add_nevent(),不保留小数位
怎么设置tbl1<-tbl_survfit(fit1,times=120)%>%add_nevent(),使生存率是带小数点后一位的:如88.9%。