как вычислить евклидову норму вектора в R?

Я пробовал norm, но я думаю, что это дает неверный результат. (норма c(1, 2, 3)равна sqrt(1*1+2*2+3*3), но возвращает 6..

x1 <- 1:3
norm(x1)
# Error in norm(x1) : 'A' must be a numeric matrix
norm(as.matrix(x1))
# [1] 6
as.matrix(x1)
#      [,1]
# [1,]    1
# [2,]    2
# [3,]    3
norm(as.matrix(x1))
# [1] 6

Кто-нибудь знает, что за функция для вычисления нормы вектора в R?