#Exercício 9.2 - Aula 9 graf.expl<- function (var1, var2) { if(length(var1)!=length(var2)) stop("Os vetores das variáveis não têm o mesmo temanho") par(mfrow=c(2,3)) hist(var1, col = "blue") hist(var2, col = "darkgreen") boxplot(var1,var2, col=c("blue","darkgreen")) qqnorm(var1, col="blue") qqnorm(var2, col="darkgreen") plot(var1, var2, col=c("blue", "darkgreen")) abline(lm(var1~var2)) w<-cor(var1,var2) return(list(summary(var1), summary(var2), w)) } a<- rnorm(1000, 10, 1) b<- rnorm(1000, 11, 1.5) graf.expl(a, b)