Создайте фрейм данных из пар и затем используйте table
:
z <- c(0, 1, 2, 3, 4, 0, 1, 2, 3, 4)
pairs <- data.frame(first = head(z, -1), second = tail(z, -1))
table(pairs)
, давая:
second
first 0 1 2 3 4
0 0 2 0 0 0
1 0 0 2 0 0
2 0 0 0 2 0
3 0 0 0 0 2
4 1 0 0 0 0
или это, которое дает исходный фрейм данных pairs
вместе сFreq
столбец отсчетов:
as.data.frame(table(pairs))