library(stats)
library(tseries)
library(fSeries)
library(moments)
library(Rcmdr)
library(fGarch)
library(fExtremes)

# Entrando com os dados
preço<-veiculos$Preço
comprimento<-veiculos$Comprimento
motor<-veiculos$Motor
umidade<-leite$Umidade
gordura<-leite$Gordura
lactose<-leite$Lactose
proteina<-leite$Proteína
calorias<-leite$Calorias

# Calculando algumas medidas
skewness(preço)
kurtosis(preço)
help(kurtosis)
kurtosis(gordura, na.rm = TRUE)
skewness(gordura, na.rm = TRUE)

# Alguns gráficos
par(mfrow=c(3,1))
hist(gordura,prob=T,ylim=c(0,0.45),breaks=20)
boxplot(leite$Gordura, ylab="Gordura")
qq.plot(leite$Gordura, dist= "norm", labels=FALSE)

# Gráfico Ramos e Folhas
stem.leaf(leite$Gordura)

# Estatísticas Descritivas - leite é o nome do arquivo de dados
  summary(leite)