Я пытаюсь использовать пакет rgp для обнаружения уравнений
library(rgp)
x = c (1:100)
y = 5*x+3*sin(x)+4*x^2+75
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")
model <- result1$population[[which.min(result1$fitnessValues)]]
Тем не менее, я продолжаю получать сообщение об ошибке. Я был бы признателен за вашу помощь в указании ошибок, которые я сделал выше.
Полезные ссылки (было бы здорово иметь это в R):