FerreiraEg5.1: Teores de Areia e Argila em Solo na Amaz<c3><b4>nia

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

Description

Conjunto de dados referente aos teores de areia e argila de uma amostra com 30 parcelas de solo de capoeira nova na Amaz<c3><b4>nia.

Format

Um data.frame com 30 observa<c3><a7><c3><b5>es e 2 vari<c3><a1>veis, em que

areia

Representa o teor de areia em cada parcela de solo.

argila

Representa o teor de argila em cada parcela de solo.

Source

FERREIRA (2011), Exemplo 5.1 p<c3><a1>g. 193-194.

Examples

data(FerreiraEg5.1)

str(FerreiraEg5.1)

pairs(FerreiraEg5.1)

bks <- apply(FerreiraEg5.1, 2,
             FUN = function(x, step = 5) {
                 r <- range(x)
                 r <- r + (r %% step * (-1)) + c(0, step)
                 seq(r[1], r[2], by = step)
             })
areiaPlot <- hist(FerreiraEg5.1$areia, plot = FALSE,
                  breaks = bks$areia)
argilaPlot <- hist(FerreiraEg5.1$argila, plot = FALSE,
                   breaks = bks$argila)

layout(matrix(c(2, 0, 1, 3), ncol = 2, byrow = TRUE),
       widths = c(4/5, 1/5), heights = c(1/5, 4/5))
par(mar = c(5, 5, 0.5, 0.5))
plot(argila ~ areia, data = FerreiraEg5.1, cex = 1.5,
     xlab = "Teor de areia do solo",
     ylab = "Teor de argila do solo",
     xlim = range(bks$areia),
     ylim = range(bks$argila))
grid()
rug(x = FerreiraEg5.1$areia, side = 3)
rug(x = FerreiraEg5.1$argila, side = 4)
par(mar = c(0, 5, 1, 0.5))
barplot(areiaPlot$counts, axes = FALSE, space = 0)
par(mar = c(5, 0, 0.5, 1))
barplot(argilaPlot$counts, axes = FALSE, space = 0, horiz = TRUE)

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