DemetrioTb1.5: Valores de CTC Direta e Indireta

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

Description

O experimento foi realizado em quatro blocos, sendo planejado para estudar o efeito da calagem sobre a CTC (Capacidade de Troca Cati<c3><b4>nica) do solo medida por dois m<c3><a9>todos diferentes. Os valores de CTC foram medidos 18 meses ap<c3><b3>s a calagem incorporada ao solo, na profundidade de 5 a 10 cm, segundo a dose de calc<c3><a1>rio.

Format

Um data.frame de 32 linhas e 4 colunas, em que

bloco

Fator que indica a qual bloco a amostra pertence, usado para controle de varia<c3><a7><c3><a3>o.

dose

Indica a dose de calc<c3><a1>rio usada na referida observa<c3><a7><c3><a3>o, medida em toneladas por hectare (t/ha).

metodo

Fator que indica o m<c3><a9>todo para determina<c3><a7><c3><a3>o da CTC, direto (1) ou indireto (0).

ctc

<c3><89> o valor observado de CTC, medido em mmol_{c}/kg.

Details

Na an<c3><a1>lise inicial do estudo do estudo foi detectada a presen<c3><a7>a de um dado discrepante (177,00) correspondente ao bloco I, dose 7,80 e metodo indireto. Em conversa com o pesquisador verificou-se que se tratava de um erro na transcri<c3><a7><c3><a3>o dos dados e que o valor correto seria 124,00. Neste conjunto de dados manteve-se o valor discrepante para efeitos did<c3><a1>ticos.

Source

DEM<c3><89>TRIO; ZOCCHI (2011), Tabela 1.5 p<c3><a1>g. 12.

Examples

data(DemetrioTb1.5)
str(DemetrioTb1.5)

library(lattice)

xyplot(ctc ~ dose | bloco, groups = metodo,
       data = DemetrioTb1.5,
       xlab = "Dose", ylab = "CTC",
       type = c("p", "r"),
       auto.key = list(space = "top", title = "M<c3><a9>todo"))

# Corrigindo dado, conforme erro verificado pelo pesquisador
select <- with(DemetrioTb1.5, bloco == 1 & dose == 7.8 & metodo == 0)
DemetrioTb1.5$ctc[select] <- 124

xyplot(ctc ~ dose | bloco, groups = metodo,
       data = DemetrioTb1.5,
       xlab = "Dose", ylab = "CTC",
       type = c("p", "r"),
       auto.key = list(space = "top", title = "M<c3><a9>todo"))

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