Hola, buenas tardes

estoy intentando hacer un bootstrap de un modelo, pero me da el siguiente
error:

"Error in FUN(newX[, i], ...) :
  unused argument(s) (list(age = c(33, 47, 49, 56, 60, 64, 64, 66, 68, 69,
71, 71, 72, 73, 74, 75, 75, 76, 78, 81, 83, 83, 36, 43, 46, 47, 49, 49, 51,
51, 52, 52, 53, 54, 54, 54, 55, 56, 56, 57, 57, 58, 58, 58, 58, 59, 59, 60,
61, 62, 63, 64, 65, 65, 66, 66, 67, 68, 69, 69, 71, 71, 71, 71, 71, 72, 72,
72, 72, 72, 73, 73, 73, 74, 74, 74, 74, 74, 75, 75, 76, 78, 79, 81, 81, 84,
84, 85, 88, 91,"

tengo un data frame con 4 variables y uso las 4 para generar el modelo,
pero no entiendo porque me da este error (la variable en question es la
xdata[,1])

muchas gracias!


library (bootstrap)

n <- 1794

theta <- function(xdata)
 {
coef(glm(xdata[,2]~xdata[,1]+xdata[,3]+xdata[,4],xdata ,
family=binomial))[4]
 }

results <- bootstrap(1:n,1000,theta,xdata)

	[[alternative HTML version deleted]]

