1

方程式の発見に 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 にこれがあると便利です):

https://www.researchgate.net/publication/237050734_Improving_Genetic_Programming_Based_Symbolic_Regression_Using_Deterministic_Machine_Learning

4

1 に答える 1

1

問題は、ベクトルを整数としてR扱い、さらに型に問題があることです。x具体的には、型 x を数値に使用してみてください。

x <- as.numeric(1:100)

それは私のために働いた。

于 2016-02-28T13:35:12.983 に答える