Как оптимизировать, если пространство параметров является целым числом (или иначе прерывается)?
Использование целочисленной проверки в функции optim(), похоже, не работает и будет очень неэффективным.
fr <- function(x) { ## Rosenbrock Banana function
x1 <- x[1]
x2 <- x[2]
value<-100 * (x2 - x1 * x1)^2 + (1 - x1)^2
check.integer <- function(N){
!length(grep("[^[:digit:]]", as.character(N)))
}
if(!all(check.integer(abs(x1)), check.integer(abs(x2)))){
value<-NA
}
return(value)
}
optim(c(-2,1), fr)