#Exercício8

#Aluno - Liedson Carneiro

#8.2
search()
library(plotrix)
plotrix::multhist
sumario <- function(x,y)
{
  tam <- length(x)-length(y)
  if(tam>0 | tam<0)
  {
    return(cat("vetores de tamanhos diferentes"))
  }
  if(tam==0)
  {
  x11()
  par(mfrow=c(2,2))
  boxplot(x,y,xlab="var1", ylab="var2", main="Boxplot")
  hist(x, main="Histograma var1")
  hist(y, main="histograma var2")
  plot(x,y,xlab="var1",ylab="var2", main="var1 x var2")
  dados <- lm(y~x)
  coef.dados<-coef(dados)
  dados.suma <- summary(x,y)
  par(mfrow=c(1,1))
  tudo <- c(coef.dados,dados.suma)
  return(tudo)
  }
}