r - R - 数値配列の二次導関数を見つける方法

Question

数値データの配列があります (たまたま、Strike によって編成されたオプション コールの価格です)。

R の 2 次導関数を計算したいと思います。

滑らかな曲線にフィットすることができました。

call.lo <- loess(mid ~ strike, df.x, model=T)

しかし、そこから差別化に行き詰まっています。

助けていただければ幸いです。