Цикл R внутри цикла: встроенные функции

В R у меня есть вектор, скажем, vec = c(1,2,...10).

Что я хочу сделать, так это пройтись по вектору, и для каждого элемента применить функцию, которая снова включает в себя цикл по вектору. Я могу сделать это с помощью циклов for, но я хочу сделать это со встроенными функциями.

Для конкретного примера я хотел бы взять каждый элемент вектора и взять сумму чисел, которые больше, чем текущий элемент, на который я смотрю. Тогда я получу новый вектор той же длины.

vec=c(1,2,3,4,5,6,7,8,9,10)
newvec=c()

for (i in 1:10){

x=vec[i]
sum=0

for (j in 1:10){

if (vec[j]>x){
  sum=sum+vec[j]
}}
newvec=c(newvec,sum)}
newvec

Каков наилучший способ добиться этого с помощью встроенных функций, надеюсь, это применимо даже в более общем смысле, чем в этом примере (например, сравниваются несколько условий, а не только vec[j]>x)? Приветствуется любая помощь!