Как избежать этого цикла в R?

Question

Я вычисляю «расстояния haversine» (расстояния с использованием latlong) для каждой строки в наборе данных.Мне нужно вычислить расстояние для каждого наблюдения от «места X» до «места Y».

Я бы не хотел запускать цикл для каждой строки, потому что он слишком медленный.Как я могу улучшить код или избежать цикла?

Код, который я запустил, следующий:

#--> creating a variable to fill each row  with haversine distances

test$haverdi <- c('inputhaverdist') 

#--> for each row, lets compute haver distance using placeXlongt(column 3) 
#--> placeXlong (column 4)  (origin ) and placeYlong(column 10 ), 
#--> placeYlat(column  11) (destination). 


for (i in 1:nrow(test)){

   test[i,ncol(test)] <- as.numeric(distHaversine(c(test[i,3],test[i,4] ), c(test[i,10],test[i,11])))                                   
}

Заранее спасибо!