按照网上的教程做，结果有报错，不知道是哪里出了问题，求指点，谢谢。
model<-decision_curve(formula1,data = data, family = binomial(link = 'logit'),thresholds=seq(0,1,by =0.01),confidence.intervals=0.95,study.design="cohort")
Error in decision_curve(formula1, data = data, family = binomial(link = "logit"),  :
  is.numeric(outcome) is not TRUE