Error in eval(predvars, data, env) : invalid 'envir' argument of type 'closure'

I got this error when I run my code. What is a problem? Maybe it's a problems with glm?

    for (j in 1:m) 
{ 
  set.seed(555) 
  I<-sample(seq(1,N.tr),prob=w,replace=TRUE) 
  #prob- вектор весов
  #seq-генерирует последовательность чисел (от 1 до 40)
  glm_mod<- glm(Diagno~., data = training, control = glm.control(epsilon = 1e-8, maxit = 25, trace = FALSE))

  pred.train <-sign(predict(glm_mod,train))

  misc[j] <- sum(as.integer(train$type != pred.train))/sum(w) 
  alpha[j]<- log((1-misc[j])/misc[j])
  w<- w*exp(alpha[j]*as.integer(train$type != pred.train))
  pred.test<-pred.test+alpha[j]
  predict(tree.model,test)
  if (misc[j]>=0.49)
    w<-rep(1/N.tr,N.tr) 
}