如何解决如何在R中的每次迭代中打印GA算法中使用的函数的值?
我想打印一个我在 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 举报,一经查实,本站将立刻删除。