Czy istnieje natywna funkcja R, która pobierze wektor wejściowy i zwróci odpowiednią macierz binarną, w której macierz ma taką samą liczbę kolumn jak unikalne wartości w wektorze wejściowym?

Na przykład podanex <- 1:3, Chcę zwrócić następującą macierz:

     [,1] [,2] [,3]
[1,]    1    0    0
[2,]    0    1    0
[3,]    0    0    1

Funkcjecontrasts zbliża się, ale nie mogę obejść zwróconych n-1 kolumn:

> contrasts(as.factor(x))
  2 3
1 0 0
2 1 0
3 0 1