Estadisticos.R

set.seed(10)
x <- rnorm(100,10,2)

cat("Media=",mean(x),"\nMediana=",median(x),"\nVarianza=",var(x),"\nDesviación típica=",sd(x),"\n\n")

## Media= 9.726902 
## Mediana= 9.613367 
## Varianza= 3.5437 
## Desviación típica= 1.882472

print(quantile(x))

##        0%       25%       50%       75%      100% 
##  5.629426  8.341845  9.613367 11.186721 14.441039

p <- c(0,1/3,2/3,1)
print(quantile(x,p=p))

##        0% 33.33333% 66.66667%      100% 
##  5.629426  8.807379 10.724174 14.441039