ルビスコくんの日記

博士学生の日記です。考えたこと、学んだことを書きます。

sapplyで引数を固定する

ずっと前から気になっていたことがありまして。それは、「引数が複数ある関数で、ある引数以外は固定してsapplyで回したい」ということでした。sapplyで回したいとはつまり、ベクトルなりを関数に渡してアウトプットとしてまたベクトルを得たい、ということです。結果から書きます。

#####

xx <- c(1:20)
hoge <- function(a, b, x){
out <- a + b*x
}
sapply(xx, a=3, b=2, FUN=hoge)

#####

ここではxを変数として、a, bは固定しています。

sapply()の中で’=’で指定してやればいいだけなんですね。全く気づかなかった。ちょーかんたん。