r - 无法使用 rgp 执行任何符号回归

Question

我有这个简单的代码:

library(rgp)
df1 <- data.frame(x=1:10, y=sin(1:10))
grp.model <- symbolicRegression(y ~ x, df1, functionSet=functionSet("sin"))

当我执行时，我收到错误

STARTING genetic programming evolution run (Age/Fitness/Complexity Pareto GP search-heuristic) ...
Error in mse(x, y) : Argument 's_y' is not a real vector.

我已经尝试过 https://cran.r-project.org/web/packages/rgp/vignettes/rgp_introduction.pdf 中的示例，但所有的例子都给了我无意义的常数函数。

我究竟做错了什么 ？

我正在使用带有 rgp_0.4-1 的 R 版本 3.1.2。

干杯。

Answer 1

我也得到同样的错误。错误输出函数 mse 的文档指出，它的参数需要“数字向量或列表”。

运行 str 命令查看数据框的结构表明 x 是整数类型。

> str(df1)
'data.frame':   10 obs. of  2 variables:
 $ x: int  1 2 3 4 5 6 7 8 9 10
 $ y: num  0.841 0.909 0.141 -0.757 -0.959 ...

尝试在 x 向量上使用 as.numeric():

library(rgp)
df1 <- data.frame(x=as.numeric(1:10), y=sin(1:10))
grp.model <- symbolicRegression(y ~ x, df1, functionSet=functionSet("sin"))