BarbinEx1: Altura de _Pinus elliottii_ aos 10 Anos de Idade

In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description

Os dados referem-se <c3><a0> altura (m) de Pinus elliottii, var. elliottii, com 10 anos de idade plantadas no espa<c3><a7>amento 2\times2,5 metros.

Format

Um vetor com 50 elementos de valor num<c3><a9>rico.

Source

BARBIN (2013), Exerc<c3><ad>cio 1, p<c3><a1>g. 199.

Examples

library(latticeExtra)
library(ggplot2)

data(BarbinEx1)

str(BarbinEx1)

# Histograma + densidade com graphics.
ht <- hist(BarbinEx1, prob = TRUE, main = NULL, col = "orange",
           ylab = "Densidade de probabilidade",
           xlab = expression("Altura de <c3><a1>rvores de"
                             ~italic("Pinus elliottii")))
lines(density(BarbinEx1))
rug(BarbinEx1)

# Histograma + densidade com lattice.
histogram(BarbinEx1, breaks = ht$breaks, col = "orange",
          type = "density",
          ylab = "Densidade de probabilidade",
          xlab = expression("Altura de <c3><a1>rvores de"
                            ~italic("Pinus elliottii")))
    latticeExtra::as.layer(densityplot(BarbinEx1,
                                       plot.points = FALSE,
                                       col = 1))
    latticeExtra::layer(panel.rug(x = x, col = 1))

# Histograma + densidade com ggplot2.
ggplot()
    geom_histogram(mapping = aes(x = BarbinEx1, y = ..density..),
                   breaks = ht$breaks, fill = "orange", col = 1)
    geom_rug(mapping = aes(x = BarbinEx1), sides = "b")
    geom_density(mapping = aes(x = BarbinEx1, y = ..density..))
    labs(y = "Densidade de probabilidade",
         x = expression("Altura de <c3><a1>rvores de"
                        ~italic("Pinus elliottii")))

# Acumulada emp<c3><ad>rica.
plot(ecdf(BarbinEx1))
ecdfplot(BarbinEx1, col = 1)
qplot(BarbinEx1,
      ecdf(x = BarbinEx1)(BarbinEx1),
      geom = "step")

pet-estatistica/labestData documentation built on May 25, 2019, 12:47 a.m.