#9.2 Exercício Análise exploratória simultânea de duas variáveis
#--------------------------------------------------------------------------------

#Crie uma função para saída gráfica de análises exploratórias de duas variáveis.
#Essa saída pode ter por exemplo boxplot, histograma, qq norm e y por x. 
. 
#Caso os valores de x e y forem desenhados em um mesmo gráfico, defina cores diferentes. 
#As legendas devem ser em português e a saída (return) deve apresentar o sumário das duas variáveis e o coeficiente de correlação.

fun.grafico <- function(x,y)
{
            if(class(x)!="numeric"|class(y)!="numeric")
            {
                        stop("Suas variáveis não são númericas, modifique isso") 
            }
            if(length(x)!= length(y)) #testando comprimento
            {
                        stop("Seus vetores têm diferententes tamanhos")#A função deve permitir a entrada de dois objetos vetores de mesmo tamanho (x e y)
            }
             par(mfrow=c(2,2), las=1, mar=c(3,3,2,2))#Dados gerais para os gráficos
             plot(y~x, xlab="x", ylab="y")
             boxplot(x,y)
             ca <- list(x, y)
             install.packages("plotrix")	#Para histogramas com variáveis em um mesmo gráfico pode ser utilizada a função multhist() do pacote “plotrix”. Baixe, instale o pacote e veja o help da função.
	       library("plotrix")
             multhist(ca, col=c("blue", "red"))
             cor <- cor(x,y, method="pearson")#coeficiente de correlação
             qqnorm(y)
             qqline(y, col="red")
             sumario <- list(summary(x), summary(y), cor)
             names(sumario) = c("x", "y", "Coeficiente de correlação de Pearson")
             return(sumario)
}  

x <- abs(rnorm(100, 25, 1))#criando um vetor x
y <- abs(rnorm(100, 10, 0.5))#criando um vetor y

fun.grafico(x,y)#testando