Problema 3

x<-c(4.775591,  4.129769, 10.820459,  2.926689,  8.806668,  4.783637, 8.418380,  7.833450,  4.537405,  6.730402,  3.698800,  6.864923, 3.225586,  5.634067,  5.504755,  6.331493,  3.726112,  6.496017, 3.682233,  6.843869,  4.193416,  6.293272,  7.568595,  5.758989, 8.720617,  3.732230,  4.492452,  3.948485,  7.427152,  4.360651, 5.411284,  1.328836,  6.282210,  7.916329,  6.750422,  5.529266, 3.653097,  7.401630,  3.742837,  8.358330)

promedio=mean(x)
print(promedio)

## [1] 5.71601

desviaciónS=sd(x)
print(desviaciónS) 

## [1] 1.999193

varianza=var(x)
print(varianza)

## [1] 3.996771

mediana=median(x)
print(mediana)

## [1] 5.581666