From 4eba3e1b83e222795c9d2745721bf369d4d6096d Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Thu, 20 Oct 2016 15:29:21 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es=20conforme=20indi?=
=?UTF-8?q?ca=C3=A7=C3=A3o=20no=20MR!123?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeTb2.24.R | 17 +++++++++++------
R/AndradeTb2.29.R | 3 +--
man/AndradeTb2.24.Rd | 17 +++++++++++------
man/AndradeTb2.29.Rd | 7 ++-----
4 files changed, 25 insertions(+), 19 deletions(-)
diff --git a/R/AndradeTb2.24.R b/R/AndradeTb2.24.R
index 45c74247..d366adfe 100644
--- a/R/AndradeTb2.24.R
+++ b/R/AndradeTb2.24.R
@@ -1,9 +1,9 @@
#' @name AndradeTb2.24
#' @title Estudo sobre a Adoção de uma Variedade de Arroz
#' @description Estudo realizado por um economista agrícola que tem
-#' interesse em identificar a associação entre o tipo de posse de
-#' terra de [DESCOBRIR QUEM] e sua propensão a adoção da nova
-#' variedade de arroz.
+#' interesse em identificar o comportamento da adoção de uma nova
+#' variedade de arroz altamente produtiva segundo a situação de
+#' posse de terra.
#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
#'
#' \describe{
@@ -11,10 +11,11 @@
#' \item{\code{posse}}{Identifica o tipo de posse de terra
#' (proprietário, único arrendatário e vários arrendatários).}
#'
-#' \item{\code{adocao}}{Identifica o se há, ou não, a adoção da nova
+#' \item{\code{adocao}}{Identifica o se houve, ou não, a adoção da nova
#' variedade de arroz.}
#'
-#' \item{\code{freq}}{Frequência [DE QUEM? FAZENDEIROS?].}
+#' \item{\code{freq}}{Frequência de terras com as características de
+#' \code{posse} e \code{adocao}.}
#'
#' }
#' @keywords contingência
@@ -27,7 +28,11 @@
#' str(AndradeTb2.24)
#'
#' xt <- xtabs(freq ~ ., data = AndradeTb2.24)
+#'
#' xt
+#' prop.table(xt)
+#' prop.table(xt, margin = 1)
+#' prop.table(xt, margin = 2)
#'
#' mosaicplot(t(xt), col = c("darkturquoise", "lawngreen", "blue"),
#' cex.axis = 0.8, las = 2, main = "")
@@ -41,6 +46,6 @@
#' title = "Posse",
#' cex.title = 1.1),
#' xlab = "Adoção da nova variedade",
-#' ylab = "Frequência DE ???")
+#' ylab = "Frequência de terras")
#'
NULL
diff --git a/R/AndradeTb2.29.R b/R/AndradeTb2.29.R
index 02cb528a..2fe1e69b 100644
--- a/R/AndradeTb2.29.R
+++ b/R/AndradeTb2.29.R
@@ -1,5 +1,6 @@
#' @name AndradeTb2.29
#' @title Biometria Total do Camarão \emph{Macrobrachium Potiuna}
+#' (MÜLLER, 1880)
#' @description Biometria total, em milímetros, do Camarão de água doce
#' \emph{Macrobrachium potiuna} (MÜLLER, 1880), da família
#' \emph{Palaemonidae}.
@@ -9,8 +10,6 @@
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.29, pág. 110)
#'
-#' @references COLOQUE A REFERENCIA DO MULLER (ATENTE-SE AO ESTILO DE
-#' REFERÊNCIA)
#' @examples
#'
#' data(AndradeTb2.29)
diff --git a/man/AndradeTb2.24.Rd b/man/AndradeTb2.24.Rd
index 5f8ebf5e..c750a98a 100644
--- a/man/AndradeTb2.24.Rd
+++ b/man/AndradeTb2.24.Rd
@@ -10,10 +10,11 @@
\item{\code{posse}}{Identifica o tipo de posse de terra
(proprietário, único arrendatário e vários arrendatários).}
-\item{\code{adocao}}{Identifica o se há, ou não, a adoção da nova
+\item{\code{adocao}}{Identifica o se houve, ou não, a adoção da nova
variedade de arroz.}
-\item{\code{freq}}{Frequência [DE QUEM? FAZENDEIROS?].}
+\item{\code{freq}}{Frequência de terras com as características de
+ \code{posse} e \code{adocao}.}
}}
\source{
@@ -23,9 +24,9 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
}
\description{
Estudo realizado por um economista agrícola que tem
- interesse em identificar a associação entre o tipo de posse de
- terra de [DESCOBRIR QUEM] e sua propensão a adoção da nova
- variedade de arroz.
+ interesse em identificar o comportamento da adoção de uma nova
+ variedade de arroz altamente produtiva segundo a situação de
+ posse de terra.
}
\examples{
@@ -33,7 +34,11 @@ data(AndradeTb2.24)
str(AndradeTb2.24)
xt <- xtabs(freq ~ ., data = AndradeTb2.24)
+
xt
+prop.table(xt)
+prop.table(xt, margin = 1)
+prop.table(xt, margin = 2)
mosaicplot(t(xt), col = c("darkturquoise", "lawngreen", "blue"),
cex.axis = 0.8, las = 2, main = "")
@@ -47,7 +52,7 @@ barchart(t(xt),
title = "Posse",
cex.title = 1.1),
xlab = "Adoção da nova variedade",
- ylab = "Frequência DE ???")
+ ylab = "Frequência de terras")
}
\keyword{contingência}
diff --git a/man/AndradeTb2.29.Rd b/man/AndradeTb2.29.Rd
index a183b72e..32d91f57 100644
--- a/man/AndradeTb2.29.Rd
+++ b/man/AndradeTb2.29.Rd
@@ -2,7 +2,8 @@
% Please edit documentation in R/AndradeTb2.29.R
\name{AndradeTb2.29}
\alias{AndradeTb2.29}
-\title{Biometria Total do Camarão \emph{Macrobrachium Potiuna}}
+\title{Biometria Total do Camarão \emph{Macrobrachium Potiuna}
+ (MÜLLER, 1880)}
\format{Um \code{vetor} numérico com 36 observações.}
\source{
Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
@@ -30,10 +31,6 @@ hist(AndradeTb2.29,
lines(density(AndradeTb2.29), lwd = 2)
-}
-\references{
-COLOQUE A REFERENCIA DO MULLER (ATENTE-SE AO ESTILO DE
- REFERÊNCIA)
}
\keyword{AAS}
--
GitLab