Commit 890bff66 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior

Troca o nome da variável resposta mantendo padrão utilizado em outro dataset

parent 54527108
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
#' \item{\code{nerep}}{Contagem do número de estruturas reprodutivas da #' \item{\code{nerep}}{Contagem do número de estruturas reprodutivas da
#' planta.} #' planta.}
#' #'
#' \item{\code{ncapu}}{Contagem do número de capulhos produzidos.} #' \item{\code{ncap}}{Contagem do número de capulhos produzidos.}
#' #'
#' \item{\code{nnos}}{Contagem do número de nós da planta.} #' \item{\code{nnos}}{Contagem do número de nós da planta.}
#' #'
...@@ -45,14 +45,14 @@ ...@@ -45,14 +45,14 @@
#' library(lattice) #' library(lattice)
#' #'
#' # Número de capulhos produzidos por vaso #' # Número de capulhos produzidos por vaso
#' da <- aggregate(ncapu ~ vaso + dexp, data = capmosca, FUN = sum) #' da <- aggregate(ncap ~ vaso + dexp, data = capmosca, FUN = sum)
#' xyplot(ncapu ~ dexp, #' xyplot(ncap ~ dexp,
#' data = da, #' data = da,
#' jitter.x = TRUE, #' jitter.x = TRUE,
#' type = c("p", "g", "smooth")) #' type = c("p", "g", "smooth"))
#' #'
#' # Número de capulhos produzidos por planta #' # Número de capulhos produzidos por planta
#' xyplot(ncapu ~ dexp, groups = planta, #' xyplot(ncap ~ dexp, groups = planta,
#' data = capmosca, #' data = capmosca,
#' jitter.x = TRUE, #' jitter.x = TRUE,
#' type = c("p", "g", "smooth")) #' type = c("p", "g", "smooth"))
......
No preview for this file type
...@@ -24,7 +24,7 @@ ...@@ -24,7 +24,7 @@
\item{\code{nerep}}{Contagem do número de estruturas reprodutivas da \item{\code{nerep}}{Contagem do número de estruturas reprodutivas da
planta.} planta.}
\item{\code{ncapu}}{Contagem do número de capulhos produzidos.} \item{\code{ncap}}{Contagem do número de capulhos produzidos.}
\item{\code{nnos}}{Contagem do número de nós da planta.} \item{\code{nnos}}{Contagem do número de nós da planta.}
...@@ -49,14 +49,14 @@ str(capmosca) ...@@ -49,14 +49,14 @@ str(capmosca)
library(lattice) library(lattice)
# Número de capulhos produzidos por vaso # Número de capulhos produzidos por vaso
da <- aggregate(ncapu ~ vaso + dexp, data = capmosca, FUN = sum) da <- aggregate(ncap ~ vaso + dexp, data = capmosca, FUN = sum)
xyplot(ncapu ~ dexp, xyplot(ncap ~ dexp,
data = da, data = da,
jitter.x = TRUE, jitter.x = TRUE,
type = c("p", "g", "smooth")) type = c("p", "g", "smooth"))
# Número de capulhos produzidos por planta # Número de capulhos produzidos por planta
xyplot(ncapu ~ dexp, groups = planta, xyplot(ncap ~ dexp, groups = planta,
data = capmosca, data = capmosca,
jitter.x = TRUE, jitter.x = TRUE,
type = c("p", "g", "smooth")) type = c("p", "g", "smooth"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment