如何用R的符号回归得到函数结果

Question

首先,请原谅我的无知,因为我今天刚刚开始学习R.

我有一个两个变量(x,y)的数据框如下:(1,0), (2,26), (3,88), (4,186), (5,320), (6,490), (7,541).我想使用符号回归来找到一个f这样的函数y = f(x).

按照这里的教程,我可以得到一个图f(x),它与我的期望相近.但是,我不知道如何打印出这个功能f(x).

我尝试了另一个名为Eurequa的工具.它非常易于使用,并且提供了很多功能.但我不能在我的项目中使用商业工具.谢谢.

---

UPDATE

这是我的代码来计算符号回归并绘制函数.我在R环境中逐个输入命令.

x = c (1, 2, 3, 4, 5, 6, 7)
y = c (0, 26, 88, 186, 320, 490, 541)
data1 = data.frame(x,y)
newFuncSet <- functionSet("+","-","*")
result1 <- symbolicRegression(y ~ x, data = data1, functionSet = newFuncSet, stopCondition = makeStepsStopCondition(2000))
plot(data1$y, col=1, type="l"); points(predict(result1, newdata = data1), col=2, type="l")

Answer 1

model <- result1$population[[which.min(result1$fitnessValues)]]

rgp可以在此处找到包含许多示例的包的介绍.