Considere o trecho de código e o gráfico a seguir: > media = 50 > desvio = 17 > library(ggplot2) > z <- s Com base nos seus conhecimentos...

Considere o trecho de código e o gráfico a seguir: > media = 50 > desvio = 17 > library(ggplot2) > z <- s Com base nos seus conhecimentos adquiridos sobre teste de hipótese, podemos observar que se trata de: um teste bilateral. um teste bilateral à direita. um teste unilateral à esquerda um teste unilateral à direita. um teste bilateral à esquerda.eq(-4,4, by = .01) > densidade <- dnorm(z) > criterio <- factor(rep("não rejeitar", length(z)), levels=c("não rejeitar", "rejeitar")) > criterio[which(z < qnorm(.01))] <- "rejeitar" > qplot(z,densidade, geom=c("path","area"), fill=criterio) + scale_fill_manual(values=c("white", "gray")) Com base nos seus conhecimentos adquiridos sobre teste de hipótese, podemos observar que se trata de: um teste bilateral. um teste bilateral à direita. um teste unilateral à esquerda um teste unilateral à direita. um teste bilateral à esquerda.