R Deoptim与交叉验证

我试图重现这个例子：

与Deoptim合作，但我没有做到这一点。 有没有一种方法可以像GA包那样向优化器添加函数