distribuição Normal

Exercícios de Distribuição Normal

Fazer um documento do RMarkdown com os cálculos das probabilidades do slide 7 d apresentação sobre a Normal (distribuição Normal e tabela da Normal Padrão)

library(RcmdrMisc)

## Carregando pacotes exigidos: car

## Carregando pacotes exigidos: carData

## Carregando pacotes exigidos: sandwich

Metade - 0,5

P(X<0)

.x <- seq(-3.291, 3.291, length.out=1000)    
plotDistr(.x, dnorm(.x, mean=0, sd=1), cdf=FALSE, xlab="z", 
          ylab="Densidade",regions=list(c(0,4)), 
          col=c('light pink'), legend=FALSE)

0,04380

P(0<X<0,11)

plotDistr(.x, dnorm(.x, mean=0, sd=1), cdf=FALSE, xlab="z", 
          ylab="Densidade",regions=list(c(0,0.11)), 
          col=c('PINK'), legend=FALSE)

0,53386

P(-2,2<X<0,12)

plotDistr(.x, dnorm(.x, mean=0, sd=1), cdf=FALSE, xlab="z", 
          ylab="Densidade",regions=list(c(-2.2,0),c(0,0.12)), 
          col=c('skyblue', 'Pink'), legend=FALSE)

0,82348

P(-1<X<2,1)

plotDistr(.x, dnorm(.x, mean=0, sd=1), cdf=FALSE, xlab="z", 
          ylab="Densidade",regions=list(c(-1,2.1)), 
          col=c('pink'), legend=FALSE)

0,46638

P(0<X<1,83)

plotDistr(.x, dnorm(.x, mean=0, sd=1), cdf=FALSE, xlab="z", 
          ylab="Densidade",regions=list(c(0,1.83)), 
          col=c('pink'), legend=FALSE)

0,74607

P(-0,87<X<1,54)

plotDistr(.x, dnorm(.x, mean=0, sd=1), cdf=FALSE, xlab="z", 
          ylab="Densidade",regions=list(c(-0.87,0),c(0,1.54)), 
          col=c('skyblue','pink'), legend=FALSE)