interpSpline関数のエラー

Question

私はデータフレームのリストxyzを持っていて、すべてのデータフレームに2つの数値ベクトル（xとy）があります。私は、xとyにパッケージスプラインからinterpSpline機能を適用したいが、私はやるとき：

lapply(xyz, function (x){ 
x%>% 
interpSpline(x,y) 
}) 

私は次のエラーを取得する：

Error in data.frame(x = as.numeric(obj1), y = as.numeric(obj2)) :
(list) object cannot be coerced to type 'double'

Answer 1

それは動作しませんinterpSplineにはないので、最初の引数としてデータフレームを取ります。

xyz <- list(data.frame(x=rnorm(10),y=rnorm(10)), 
      data.frame(x=rnorm(10),y=rnorm(10))) 
library(splines) 
sf <- function(d) with(d,interpSpline(x,y))) 
s <- lapply(xyz,sf) 

また、interpSpline(d$x,d$y)を使用することもできます。それはパイプで動作するようにinterpSplineを取得するために十分なねじれを行うことは可能かもしれないが、それはほとんどトラブルの価値は思わない...