Значение управляющих переменных в R для библиотеки GA - PullRequest
0 голосов
/ 04 мая 2020

Есть ли способ получить значение переменных управления для каждой итерации при использовании пакета GA в R.

opt_func1<-function(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10){
-526.20062+(-0.94096*x1)+(-0.15441*x2)+(0.31207*x3)+(0.48078*x4)+ 
(-0.12234*x5)+(0.44494*x6)+(-0.13829*x7)+(-5.64025*x8)+(1.80444*x9)+ (0.87023*x10)+(12.57327*last(data$CPI))+(-20.87318*last(data$Holiday_Period))
}

t<-ga(type="real-valued",
  fitness=function(x) opt_func1(x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8],x[9],x[10]),
  lower=c(731.1682177,775.3846676,828.7925622,838.9781092,833.0613239,
          796.8835842,801.4226802,104.9984009,1,2316.727869),
  upper=c(799.3122304,921.0683608,918.6778187,937.0963725,916.2650745,881.9520978,906.8178229,
          105.478063,10,5184.689792),
  popSize=100,maxiter=500
)
print(summary(t))

Вывод, который я получаю, прилагается ниже. Я ищу значение управляющих переменных, т.е. x1-x10 для каждой итерации. Можно ли получить эти значения?

Выходное изображение

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...