Lição de casa - calcular desvio padrão

Olá a todos!

Estava fazendo a lição de casa proposta nesta aula mas cheguei a valores próximos, porém divergentes, do que foi informado na vídeo aula. Mais precisamente falando, o Maurício informou que o valor que ele chegou ao calcular o desvio padrão para o fictício João foi de 1,73, porém eu cheguei em 1,79 (arredondando para duas casas decimais) aplicando a mesma técnica! o_O

Aqui vai a sequência do que fiz. Comecemos com os dados da dispersão:

1 ------------ 7

1 ------------ 8

1 ------------ 9

2 ------------ 10

2 ------------ 11

1 ------------ 12

1 ------------ 13

Primeiro, utilizei o R para calcular a média usando a seguinte fórmula, armazenando o resultado em uma variável:

> media_joao <- (7+8+9+10+10+11+11+12+13)/9

Tendo como resultado:

> media_joao
[1] 10.11111

Com base nisso calculei a variância usando a seguinte fórmula:

> variancia_joao <- (((media_joao-7)^2)+((media_joao-8)^2)+((media_joao-9)^2)+((media_joao-10)^2)+((media_joao-10)^2)+((media_joao-11)^2)+((media_joao-11)^2)+((media_joao-12)^2)+((media_joao-13)^2))/9

Tendo como resultado:

> variancia_joao
[1] 3.209877

Por fim, usei o R para calcular a raíz quadrada deste valor, fazendo o seguinte:

> sqrt(variancia_joao)

Tendo como resultado:

[1] 1.791613

Mais de seis pontos de diferença em relação a resposta dada na vídeo aula.

Em que ponto do cálculo estou errando? o_O

Obrigado.