ベクトル関係追記

無理にJ言語に対応させたやり方をしていたがR言語ならではのやりかたもあった。

前回のインデックスに対応する場所をFizzで置換する処理
> a = 1:15
> replace(a,a[a%%3==0],'Fizz')
 [1] "1"    "2"    "Fizz" "4"    "5"    "Fizz" "7"    "8"    "Fizz" "10"  
[11] "11"   "Fizz" "13"   "14"   "Fizz"

replaceは論理値ベクトルにも対応しているのでこれでよかった
> replace(a,a%%3==0,'Fizz')
 [1] "1"    "2"    "Fizz" "4"    "5"    "Fizz" "7"    "8"    "Fizz" "10"  
[11] "11"   "Fizz" "13"   "14"   "Fizz"

そもそもifelseがベクトル対応なのでこれでもOK
> ifelse(a%%3==0,'Fizz',a)
 [1] "1"    "2"    "Fizz" "4"    "5"    "Fizz" "7"    "8"    "Fizz" "10"  
[11] "11"   "Fizz" "13"   "14"   "Fizz"