capmosca.Rd 2.54 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/capmosca.R
\name{capmosca}
\alias{capmosca}
\title{Capulhos de Algodão em Função da Exposição à Mosca Branca}
\format{Um \code{data.frame} com 60 observações e 8 variáveis.
    \describe{

\item{\code{dexp}}{Inteiro com 6 valores que representa os dias de
    exposição à alta infestação de Mosca-Branca.}

\item{\code{vaso}}{Fator que indica o vaso no qual foram mensurados
    os componentes de produção do algodão.}

\item{\code{planta}}{Fator que indica a planta na qual foram
    mensurados os componentes de produção do algodão.}

\item{\code{alt}}{Altura da planta, mensurada em centímetros.}

\item{\code{pesocap}}{Peso dos capulhos de algodão, mesurado para
    cada vaso (que contém duas plantas). No \code{data.frame} somente
    a primeira planta do vaso contém a observação do peso.}

\item{\code{nerep}}{Contagem do número de estruturas reprodutivas da
    planta.}

27
\item{\code{ncap}}{Contagem do número de capulhos produzidos.}
28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

\item{\code{nnos}}{Contagem do número de nós da planta.}

}}
\description{
Experimento conduzido na Universidade Federal da Grande
    Dourados (UFGD) em 2007, cujo objetivo foi avaliar os impactos da
    exposição de plantas à alta infestação de Mosca-Branca
    \emph{Bemisia tabaci} em componentes de produção do algodão. No
    experimento, plantas de algodão foram expostas à alta infestação
    da praga por períodos diferentes e ao final do experimento
    avaliou-se o número de capulhos produzidos, o número de
    estruturas reprodutivas, o número de nós, a altura da planta e o
    peso dos capulhos por vaso. A condução do estudo deu-se via
    delineamento interamente casualizado com 5 vasos, contendo duas
    plantas, para cada período de exposição.
}
\examples{
data(capmosca)
str(capmosca)

library(lattice)

# Número de capulhos produzidos por vaso
52 53
da <- aggregate(ncap ~ vaso + dexp, data = capmosca, FUN = sum)
xyplot(ncap ~ dexp,
54 55 56 57 58
       data = da,
       jitter.x = TRUE,
       type = c("p", "g", "smooth"))

# Número de capulhos produzidos por planta
59
xyplot(ncap ~ dexp, groups = planta,
60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
       data = capmosca,
       jitter.x = TRUE,
       type = c("p", "g", "smooth"))

# Número de estruturas reprodutivas da planta
xyplot(nerep ~ dexp, groups = planta,
       data = capmosca,
       jitter.x = TRUE,
       type = c("p", "g", "smooth"))

# Número de nós da planta
xyplot(nnos ~ dexp, groups = planta,
       data = capmosca,
       jitter.x = TRUE,
       type = c("p", "g", "smooth"))

}