質問: .Call(C_lowess, x, as.double(xy$y[o]), f, iter, delta)) } ``` ここでxに関してのorderをせずにlowessを行いたいです。 まず初めにこのfunctionが機能するかを確かめるために、 このlowessのfunction自体をコピーし、mylowessとして新たにfunctionを作成し、実行しました。その結果、 ``` Error: object 'C_lowess' not found ``` というエラーメッセージが出てきました。 自分の理解では、Rの各functionを改変し、新にfunctionとして再利用することは可能だと思っていました。今までいつくものfunctionを作成できていました。しかし、今回このようなエラーが出てしまい、googleで調べましたが、ヒントらしきものがヒットされませんでしたので、ここで質問させていただいています。 もしこのようなエラーを解決する方法をご存じでしたら、ご教授をお願いします。 よろしくお願いいたします。
回答: mylowess内の該当箇所を`stats:::C_lowess`に変更すると機能するかと思います。 `C_lowess`関数を{stats}から明示的に取り出す、という記述です。