####################### ####Exercício - 9.2#### ##Anne Elise Landine### ####################### #9.2 Exercício Análise exploratória simultânea de duas variáveis #Tarefa: 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. A função deve permitir a entrada de dois objetos vetores de mesmo tamanho (x e y). 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. anal.expl <- function(x,y, graphics = TRUE) { if(length(x)!=length(y)) { stop("O objeto x e y apresentam tamanhos diferentes") } if(graphics) { x11() par(mfrow = c(2,2)) boxplot(x,y, main="BoxPlot de x e y", names = c("x", "y"), col = c("lightgreen","lightblue")) hist(x, main="Histograma de x") hist(y, main="Histograma de y") plot(y~x, pch = 8, main = "y em função de x") lm <- lm(y~x) abline(lm) iqd <- summary(x)[5] - summary(x)[2] iqd2 <- summary(y)[5] - summary(y)[2] x11() par(mfrow = c(2,2)) hist(x, prob=T, main="Distribuição de densidade de x") lines(density(x,width=2*iqd), col = "green") qqnorm(x,col="red",main="Gráfico Quantil x Quantil",xlab="Quantil Teórico",ylab="Quantil da Amostra") qqline(x) hist(y, prob=T, main="Distribuição de densidade de y" ) lines(density(y,width=2*iqd2), col = "blue" ) qqnorm(y,col="red",main="Gráfico Quantil x Quantil",xlab="Quantil Teórico",ylab="Quantil da Amostra") qqline(y) } numb <- data.frame(x,y) su <-summary(numb) coef <- coef(lm) return(list(su, coef)) }