In [1]:
turma1 <- c(75.02786847, 56.51450656, 55.57517955, 62.00893933,
82.82022277, 91.78076684, 71.53028442, 82.22315417,
71.14621041, 76.27644453)
In [2]:
turma2 <- c(63.96213546, 51.00946728, 54.48449137, 53.62955058,
61.62138863, 59.99119596, 57.61297576, 62.52220793,
64.54041384, 63.95477107)
Soma das diferenças entre os pesos e a média
In [3]:
print(sum((turma1 - mean(turma1))))
In [6]:
a <- c(3,4,5,7)
print(mean(a))
In [8]:
print(sum(a - 4.75))
In [ ]: