#9.2 - Exerc’cio An‡lise explorat—ria simult‰nea de duas vari‡veis

setwd("/Users/irisamatimartins/Documents/Aula R/Aula 9")
getwd()
install.packages("plotrix")
library()
require("plotrix")
Amostra A <- sample(1:100, 10, replace=TRUE)
Amostra A
Amostra B <- sample(1:100, 10, replace=TRUE)
Amostra B
gr‡ficos <-function(x,y)
  {
  if(length(x)!=length(y))
  {
    stop("x and y must have the same length")
  }
  library("plotrix")
  x11()
  par(mfrow=c(2,2))
  multhist(list(x,y),freq=T,main="Histograma")
  boxplot(list(x,y),main="Boxplot")
  qqnorm(x,pch=16,ylim=c(min(c(x,y)),max(c(x,y))))
  qqline(x)
  par(new=T)
  qqnorm(y,pch=10,ylim=c(min(c(x,y)),max(c(x,y))))
  qqline(y)
  par(new=F)
  plot(x,y)
  lmxy<-lm(y~x)
  abline(lmxy)
  return(list(summary(x),summary(y),summary(lmxy)$r.squared))
}
gr‡ficos(x,y)