futures = read.csv("D:/Dropbox/Public/futures.csv",header=T,sep=",")
n = names(futures)[3:139]
fmla = as.formula(paste(names(futures)[2],"~",paste0(n,collapse="+")))

model1<-glm(formula=fmla, data=futures, family=binomial(link="logit"), na.action=na.exclude)
summary(model1)
summary(model1)$coefficients[which(summary(model1)$coefficients[,4]<0.05),]
##想把p<0.05的變數列出來

p = predict(model1,futures,type = "response")
##這裡我要如何設定model1使他只會吃p<0.05的變數