3

私は機能データ分析手法を使用して、個別のデータセットを平滑化していました。fda パッケージと関数 Smooth.basis を使用していました。これでフィットした滑らかなオブジェクトが得られますが、今度はその逆を取得する必要があります。コードは次のようなものです。

basisobj<-create.bspline.basis(c(0,1),7)
fit=smooth.basis(argvals=Data$Time,y=Data$Score,fdParobj=basisobj)$fd

Data$Score が 20 のときの Data$Time の値を知りたいです。

inverse.predict 関数を試してみましたが、 lm 関数の結果しか得られませんでした。

ありがとうございました!

4

0 に答える 0