r - if 条件付きの for ループを使用して新しいベクトルを作成する

Question

R の for ループの問題に直面しています。特定の条件がデータ要素に適用される場合、新しいベクトルを作成する必要があります。ただし、データ セットの最初の 49 列だけを R にループさせたいと考えています。これは私がこれまでに持っているコードですが、R は複数のエラー メッセージを返します。

meanedu = c()
count= 0
sum = 0
 ###HV105.01:HV105.49 are the columns for which I want the for loop to run###
for i in ncol(HV105.01:HV105.49) i++) } 
  ###burkina cut is the name of the dataset. I want the for loop to run for all rows###
     for (j in nrow(burkinacut) j++) { 
##defining a new variable age which is the position [1,1] in my dataset### 
         age = burkinacut[i,j]
         if (age >= 25) {
##if age>=25 create a new vector adult edu which is the value 49 spaces to the right from the current data element##
            adultedu= (i, j+49)
            sum = sum + adultedu ###sum this vector###
            count= count++
         }
    }
}

このコードを実行する方法についての提案をいただければ幸いです。私がやりたいことを説明するために説明を入れようとしました。私が行った調査によると、apply、lapply、または mapply 関数を使用するのが最適かもしれませんが、このコンテキストでそれらを使用する方法がわかりません。