data(iris)

# Estatísticas descritivas - Variáveis quantitativas

colMeans(iris[,1:4])

cov(iris[,1:4])

cor(iris[,1:4])


# Estatísticas descritivas - Variáveis qualitativas

table(iris[,5]) 

table(iris[,5])/nrow(iris)


# Gráficos de dispersão multivariados
# Gráficos de estrelas
# Baixar dados publicfirms.txt da WIKI

publicfirms <- read.table("http://wiki.icmc.usp.br/images/d/d6/Publicfirms.txt")

colnames(publicfirms) <- c("X1", "X2", "X3", "X4", "X5", "X6", "X7", "X8", "Empresa")
rownames(publicfirms) <- publicfirms[,9]

stars(publicfirms[,1:8],key.loc=c(11,2), main='Gráfico de estrelas para\n dados de empresas públicas')


# Gráficos de coordenadas paralelas

library(lattice)
parallelplot(iris[,1:4])