Запись суммирования цикла for в R

Я создаю вектор vsum с длиной, равной длине столбца в фрейме данных, df. Значения в каждом элементе vsum равны сумме строк из определенных столбцов в df, умноженных на элемент в векторе wts. В настоящее время я использую циклы for для достижения результата. Есть ли лучший способ сделать это с помощью векторизованного кода или какой-либо другой базовой функции R?

vsum  <- vector(mode = "numeric", length = 1000)
wts <- vector(mode = "numeric", length = 4)
df <- data.frame(v1=numeric(),v2=numeric(), ... , v50=numeric())

# Values added to wts and df.  1000 rows in df.

cols <- c(3,14,25,36)

for (j in 1:4){
  vsum <- vsum + wts[j]*df[,cols[j]]
}