#lendo o dataset
D <- read.csv("myDataset.csv", sep = ",", header = TRUE)
#Identificação das variaveis print tela
D

#Conhecendo os dados
#Estatísticas descritivas
summary(D)

#Medidas de despersão
var(D$x)
var(D$y)
var(D$w)
var(D$m)
var(D$n)
var(D$o)
sd(D$x)
sd(D$y)
sd(D$w)
sd(D$m)
sd(D$n)
sd(D$o)

summary(D$x)
hist(D$x, ylab = "Frequencia",  main = "Histograma x")
abline(v=median(D$x), col="red", lwd=4)
abline(v=mean(D$x), col="Green", lwd=4)
boxplot(D$x, ylab = "Dados x")
abline(h=mean(D$x))
boxplot(D$x~D$mes, main="x", ylab="Valor", xlab="Mês")

summary(D$y)
hist(D$y, ylab = "Frequencia",  main = "Histograma y")
abline(v=median(D$y), col="red", lwd=4)
abline(v=mean(D$y), col="Green", lwd=4)
boxplot(D$y, ylab = "Dados y")
abline(h=mean(D$y))
boxplot(D$y~D$mes, main="y", ylab="Valor", xlab="Mês")

hist(D$w, ylab = "Frequencia",  main = "Histograma w")
boxplot(D$w, ylab = "Dados w")
boxplot(D$w~D$mes, main="w", ylab="Valor", xlab="Mês")

hist(D$m, ylab = "Frequencia",  main = "daHistograma m")
boxplot(D$m, ylab = "Dados m")
boxplot(D$m~D$mes, main="m", ylab="Valor", xlab="Mês")

hist(D$n, ylab = "Frequencia",  main = "Histograma n")
boxplot(D$n, ylab = "Dados n")
boxplot(D$n~D$mes, main="n", ylab="Valor", xlab="Mês")

hist(D$o, ylab = "Frequencia",  main = "Histograma o")
boxplot(D$o, ylab = "Dados o")
boxplot(D$o~D$mes, main="o", ylab="Valor", xlab="Mês")

freq <- table(D$z)
freq
#Não fazer grafico de barras para meses, todos os meses tem a mesma frequencia

#Buscar relação entre as variaveis
with(D, plot(w, x))
title (main="Gráfico de Dispersão w,x")

with(D, plot(o, n))
title (main="Gráfico de Dispersão o,n")

with(D, plot(w, n))
title (main="Gráfico de Dispersão w,n")
#Relação entre as variaveis w,x parece crescente