Kendall-Tau-Abstand (ein Blasen-Sortier-Abstand) zwischen Permutationen in der Basis R

Wie kann die Kendall-Tau-Distanz (a.k.a. Bubble-Sort-Distanz) zwischen zwei Permutationen in R berechnet werden, ohne zusätzliche Bibliotheken zu laden?