for文絶対殺すマン

kill_for_loop.R

# 関数定義
func = function(hoge){
  return(hoge*hoge)
}

# 1から10までの整数のベクトルに対して関数を適用したい
x = 1:10

# 絶対殺す
fx = as.numeric()
for(N in x){
  fx[N] = func(N)
}
fx

# 関数によっては, ベクトルを突っ込めばそのままいける
func(x)

# 確実にやるならapply
sapply(x, func)

# 現代的Rコード
library(magrittr)
library(dplyr)
x %>% 
  as.data.frame %>% 
  mutate(fx = func(x))