私はこの単純なコード持ってRGP

Question

を持つ任意のシンボリック回帰を実行することができません：私は私がhttps://cran.r-project.org/web/packages/rgp/vignettes/rgp_introduction.pdfからの例を試してみました

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. 

エラーを取得する実行すると

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

を、しかし、すべての例ナンセンス定数関数を与えてください。

私は間違っていますか？

rバージョン3.1.2とrgp_0.4-1を使用しています。

乾杯。

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"))