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


eda.shape2 <- function(x,y)
{
    if(length(x)!=length(y))
    {
    cat("\t", "Error - x e y não tem o mesmo tamanho")  
    } 
  else 
  {  
      x11()
      par(mfrow = c(2,2))
      hist(x,main = "Histograma de x", col="red")
      hist(y,main = "Histograma de y",col="grey")
      boxplot(list(x,y), main="BoxPlot de x e y", xaxt ="n", col=c("red","grey"))
      axis(1, at=c(1:2),label=c("x","y")) 
      mod.linear=lm(x~y)
      plot(x~y,xlab="x",ylab="y")
      abline(mod.linear,col="red")
      x11()
      par(mfrow = c(2,2))
      plot.lm(mod.linear)
      correlacao= cor.test(x,y)
      medx=summary(x)
      medy=summary(y)
      resultados =list(correlacao,medx,medy)
      return(resultados)
  }
}