R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

Ex de Distribuição Normal

library(RcmdrMisc)
## Carregando pacotes exigidos: car
## Carregando pacotes exigidos: carData
## Carregando pacotes exigidos: sandwich
.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('#0080C0', '#BEBEBE'), legend=FALSE)

P(X<0) = 0,5

.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('DARKBLUE'), legend=FALSE)

P(0<X<0,11) = 0,04380

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

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

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('yellow', 'PURPLE'), legend=FALSE)

P(-1<X<2,1) = 0,34134 + 0,48214 = 0,82348

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

P(0<X<1,83) = 0,46638

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

P(X=1,54) = 0,016667

P(x>2,5) = 0,00621

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

P(x>-2) = 0,97725

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