pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
media <- mean(pesos)
pesos.d2 <- c((78.4-media)^2,(79.8-media)^2,(76-media)^2,(75.3-media)^2,(77.4-media)^2,(78.6-media)^2,(77.9-media)^2,(78.8-media)^2,(79.2-media)^2,(75.2-media)^2,(75-media)^2,(79.4-media)^2)
pesos.d2s <- sum(pesos.d2)
pesos.v <- pesos.d2s/(12-1)
pesos.ds <- sqrt(sum(pesos.d2))
pesos.s <- sqrt(pesos.v)