作業効率アップのためにサンプルスクリプトをここから引用した。 データフレーム：data1 目的変数：Y説明変数：X1, X2 res<-glm(data1$Y~.,data=data1,family=binomial)res1<-summary(res)res1coe<-res1$coefficientcoeOR<-exp(coe[,1])ORlow<-exp(coe[,1]-1…