# medidas de posicao e dispersao

resina<-c(1.5,1.8,1.9,2.0,2.1,2.3,2.3,2.6,3.4,5.5)

############# medidas de posicao

#media
mean(resina)

#mediana
median(resina)

#moda
moda<-function(x) subset(table(x),table(x)==max(table(x)))
moda(resina)
# a moda e o valor 2.3 com 2 ocorrencias

#quartil
summary(resina)

#percentil
quantile(resina)
# voce pode especificar o percentil desejado
quantile(resina, 0.75)

############# medidas de dispersao

#amplitude
amplitude<- max(resina) - min(resina)

#amplitude interquartilica
aiq<-summary(resina)[5] - summary(resina)[2]
aiq
IQR(resina)

#variancia
var(resina)

#desvio padrao
sd(resina)

sqrt(var(resina))

#coeficiente de variacao
cv<-100* sd(resina)/mean(resina)
cv

#grafico de caixas
boxplot(resina)