require(MatchIt)
require(gbm)
data("lalonde")
i <- 1
while(!(tmp$rel.inf[1] == 82.3429390)){
          gps <- gbm(treat ~ age + educ + nodegree + re74 + re75,
                     distribution = "bernoulli",
                     data = lalonde, n.trees = 100,
                     interaction.depth = 4,
                     train.fraction = 0.8, shrinkage=0.0005,
                     set.seed(i))
          tmp <- summary(gps)
          cat(i,"n")
          i <- i + 1
}