【R】for文の変数をデータフレームの変数に適用する方法

前提

以下のようなデータフレームがあります。

R
1> data
2          A         B       A_S       B_S
31  9.238813  8.036957 13.623054 10.218034
42 10.339026 10.015975  8.638876  6.158602
53 10.041441 11.366416  8.523745 17.918932
64  8.189271 12.425429 10.792798  1.836459
75  9.558937 12.847646  5.781692  7.300738

変数AとA_Sの差、変数BとB_Sの差をそれぞれ計算し、結果が<=0の場合のみ、変数AとBそれぞれの対応する値を0に置き換えたいです。
具体的には以下のようなことをしたいのですが、これを繰り返し処理で実現したいです。

R
1> data$A[data$A - data$A_S <= 0] <- 0
2> data$B[data$B - data$B_S <= 0] <- 0
3> data
4          A        B       A_S       B_S
51  0.000000  0.00000 13.623054 10.218034
62 10.339026 10.01598  8.638876  6.158602
73 10.041441  0.00000  8.523745 17.918932
84  0.000000 12.42543 10.792798  1.836459
95  9.558937 12.84765  5.781692  7.300738

試したこと

for文を用いて繰り返し処理できないか、以下のように試しましたがエラーになりました。
データフレームの変数名にfor分の変数を適用することはできないのでしょうか？

R
1> vector = c("A", "B")
2> for (i in vector){
3+   data$i[data$i - data$i_S <= 0] <- 0
4+ }
5 `$<-.data.frame`(`*tmp*`, "i", value = numeric(0)) でエラー: 
6  replacement has 0 rows, data has 5