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

Как вычислить сумму квадратов отклонений (от среднего) вектора?

Я попытался с помощью команды

sum (x-mean (x)) ^ 2

но, к сожалению, это возвращает -1.998401e-15, что не может быть правильным. Есть ли какой-нибудь тонкий оператор, как в скобках, который я здесь упускаю?

Спасибо.