如何在R中的每次迭代中打印GA算法中使用的函数的值？

编程问答 2022-05-17

问题描述

我想打印一个我在 R 中的 GA 算法中使用的函数的值并将其保存在一个文件中。有什么办法可以做到这一点？

levy13 <- function(x1,x2)
{
  term1 <- (sin(3*pi*x1))^2
  term2 <- (x1-1)^2 * (1+(sin(3*pi*x2))^2)
  term3 <- (x2-1)^2 * (1+(sin(2*pi*x2))^2)
  
  y <- term1 + term2 + term3
  return(y)
}

GA <- ga(type = "binary",fitness =  function(x) - levy13(x[1],x[2]),lower = c(-10,-10),upper = c(10,10),popSize = 200,maxiter = 200,nBits = 6,elitism = 5)

我知道我可以使用 GA@iter 或 GA@solution 但它只给我迭代次数和最后一个最佳解决方案，我需要有我的函数值（在本例中为 Levy13）以将它们保存在 txt 中或 .csv 文件。请帮帮我！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

genetic-algorithmiterationiterationrr