diff --git a/R/SoaresEx18.R b/R/SoaresEx18.R
index 427bee640a04da43e261df759641d55bd1e7d270..2a1e480002ffdc498a4ea9c72b4e013fc952be01 100644
--- a/R/SoaresEx18.R
+++ b/R/SoaresEx18.R
@@ -1,40 +1,45 @@
#' @name SoaresEx18
-#' @title Valores de creatinina fosfocinase (CFC) em 360 pacientes.
-#' @description Em um hospital do coração, foram analisados os valores
-#' de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
-#' infarto agudo do miocárdio.
-#' @format Um \code{data.frame} com 6 observações e 3 variáveis.
+#' @title Valores de Creatinina Fosfocinase (CFC) em 360 Pacientes
+#' @description Em um hospital do coração, foram analisados os valores
+#' de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+#' infarto agudo do miocárdio. Os dados estão agregados com as
+#' frequências em cada classe.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{cfc}}{Indice dos valores de CFC.}
+#' \item{\code{cfc}}{Índice dos valores de CFC.}
#'
#' \item{\code{ia}}{Infarto agudo presente ou não presente.}
#'
-#' \item{exp}{Variável explicativa com os valores obtidos.}
+#' \item{\code{freq}}{Número de pacientes em cada classe.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex 18, pg 127.
+#' @source SOARES; SIQUEIRA (2002), página TODO, exercício 18.
#' @examples
#'
#' library(lattice)
-#' data(SoaresEx18)
#'
-#' coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
-#' barchart(coleta, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
-#' "80 <= CFC < 280"))),
-#' ylab = "Frequência",
-#' xlab = "CFC",
-#' main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
-#' auto.key = list(corner = c(0.75, 0.95),
-#' text = c("não",
-#' 'sim')))
-#'
-#'
+#' data(SoaresEx18)
+#' str(SoaresEx18)
+#'
+#' coletac <- xtabs(freq ~ cfc + ia, data = SoaresEx18)
+#' addmargins(coletac)
+#'
+#' barchart(coletac,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("CFC < 80",
+#' "80 <= CFC < 279",
+#' "CFC >= 279"))),
+#' ylab = "Frequência",
+#' xlab = "CFC",
+#' auto.key = list(title = "Infato do miocardio",
+#' cex.title = 1.1,
+#' columns = 2,
+#' text = c("não", "sim")))
+#'
+#' mosaicplot(coletac)
#'
NULL
diff --git a/R/SoaresEx19.R b/R/SoaresEx19.R
index a32c9f7dc968a92c30087ad8772672f5138ef767..e05047637925967e939b199a79a6de92c4a40667 100644
--- a/R/SoaresEx19.R
+++ b/R/SoaresEx19.R
@@ -1,19 +1,19 @@
#' @name SoaresEx19
-#' @title Eficácia do exame clínico neurológico
+#' @title Eficácia do Exame Clínico Neurológico
#' @description A hemorragia peri-intraventricular (HPIV) é uma das
#' causas mais frequentes de agressão ao sistema nervoso central no
-#' período de neonatal e a segunda causa mais frequente de morte em
-#' prematuros. Atualmente, o método de escolha para diagnóstico
+#' período de neonatal e a segunda causa mais frequente de morte em
+#' prematuros. Atualmente, o método de escolha para diagnóstico
#' consiste em técnicas não invasivas (ultra-sonografia e tomografia
-#' computacionalizada). Tavares (1995) estudou a ocorrência desta
-#' enfermidade em 120 dos 129 recém-nascidos com peso menor que
-#' 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
+#' computacionalizada). Tavares (1995) estudou a ocorrência desta
+#' enfermidade em 120 dos 129 recém-nascidos com peso menor que
+#' 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
#' 18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
#' neurológico, as crianças foram examinadas por um pediatra clínico
-#' com formação em neonatologia, sem o conhecimento prévio dos
-#' exames ultrasonográficos, que confirmam ou não diagnóstico
+#' com formação em neonatologia, sem o conhecimento prévio dos
+#' exames ultrasonográficos, que confirmam ou não diagnóstico
#' fornecido pelo médico.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -21,29 +21,31 @@
#'
#' \item{\code{ex}}{Exame neurológico alterado ou normal.}
#'
-#' \item{ef}{Eficiência do exame.}
+#' \item{\code{freq}}{Eficiência do exame.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex 19, pg 128.
+#' @source SOARES; SIQUEIRA (2002), pág. 128, exercício 19. TODO citar
+#' Tavares (1995), colocar a referência completa.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx19)
+#' str(SoaresEx19)
+#'
+#' a <- xtabs(freq ~ hpiv + ex, data = SoaresEx19)
+#' addmargins(a)
+#'
+#' mosaicplot(a)
#'
-#' a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
-#' barchart(a, horizontal = FALSE,
-#' stack = FALSE,
-#' scales=list(x=list(labels=c("Ausente","Presente"))),
-#' ylab = "Frequência",
-#' xlab = "HPIV",
-#' main = "Eficácia do exame clínico neurológico",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Exame Neurológico Alterado",
-#' 'Exame Neurológico Normal')))
-#'
-#'
+#' barchart(a,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Ausente", "Presente"))),
+#' ylab = "Frequência",
+#' xlab = "HPIV",
+#' auto.key = list(text = c("Exame Neurológico Alterado",
+#' "Exame Neurológico Normal")))
#'
NULL
diff --git a/data-raw/SoaresEx18.txt b/data-raw/SoaresEx18.txt
index 2259f023f84e3b6d21c6491e6854ff4ea0ca107e..916a9e4853dd74f6a5f8f79e556d8fc15dcc4ee8 100644
--- a/data-raw/SoaresEx18.txt
+++ b/data-raw/SoaresEx18.txt
@@ -1,7 +1,7 @@
-cfc ia exp
-< 80 sim 15
-< 80 não 114
-80-279 sim 118
-80-279 não 15
->279 sim 97
->279 não 1
+cfc ia freq
+<80 sim 15
+<80 não 114
+[80, 279) sim 118
+[80, 279) não 15
+>=279 sim 97
+>=279 não 1
diff --git a/data-raw/SoaresEx19.txt b/data-raw/SoaresEx19.txt
index 93ab5f99301ab90e8df6c20c46b36b0baf94e77f..72ce60546bed21e2d7cd7c6d513ede37dd74584d 100644
--- a/data-raw/SoaresEx19.txt
+++ b/data-raw/SoaresEx19.txt
@@ -1,4 +1,4 @@
-hpiv ex ef
+hpiv ex freq
p a 25
p n 13
a a 31
diff --git a/data/SoaresEx18.rda b/data/SoaresEx18.rda
index aef79019dfe543cb37ac7231c44612988a88775f..2e0ce427b3762bd6ef7cf0aa6ad05ae440010161 100644
Binary files a/data/SoaresEx18.rda and b/data/SoaresEx18.rda differ
diff --git a/data/SoaresEx19.rda b/data/SoaresEx19.rda
index ccbd78e3e2e67ea7319057f55eb6b8c2e94b8a5e..ecb714888ee9edeffde560c163038ccea33597a6 100644
Binary files a/data/SoaresEx19.rda and b/data/SoaresEx19.rda differ
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
index 4526c8acb88aa27007e3f03e1756fb9de3a39abe..aff7516af51e811fb510ca2a62d8746b83afb5e5 100644
--- a/man/SoaresEx18.Rd
+++ b/man/SoaresEx18.Rd
@@ -1,73 +1,52 @@
% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/SoaresEx18.R, R/SoaresTb4.9.R
+% Please edit documentation in R/SoaresEx18.R
\name{SoaresEx18}
\alias{SoaresEx18}
-\title{Valores de creatinina fosfocinase (CFC) em 360 pacientes.}
-\format{Um \code{data.frame} com 6 observações e 3 variáveis.
+\title{Valores de Creatinina Fosfocinase (CFC) em 360 Pacientes}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
\describe{
-\item{\code{cfc}}{Indice dos valores de CFC.}
+\item{\code{cfc}}{Índice dos valores de CFC.}
\item{\code{ia}}{Infarto agudo presente ou não presente.}
-\item{exp}{Variável explicativa com os valores obtidos.}
+\item{\code{freq}}{Número de pacientes em cada classe.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex 18, pg 127.
-
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex 18, pg 127.
+SOARES; SIQUEIRA (2002), página TODO, exercício 18.
}
\description{
-Em um hospital do coração, foram analisados os valores
- de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
- infarto agudo do miocárdio.
-
-Em um hospital do coração, foram analisados os valores
- de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
- infarto agudo do miocárdio.
+Em um hospital do coração, foram analisados os valores
+ de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+ infarto agudo do miocárdio. Os dados estão agregados com as
+ frequências em cada classe.
}
\examples{
library(lattice)
-data(SoaresEx18)
-
-coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
-barchart(coleta, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
- "80 <= CFC < 280"))),
- ylab = "Frequência",
- xlab = "CFC",
- main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
- auto.key = list(corner = c(0.75, 0.95),
- text = c("não",
- 'sim')))
-
-
-
-library(lattice)
data(SoaresEx18)
-
-coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
-barchart(coleta, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("CFC >= 280","CFC < 80",
- "80 <= CFC < 280"))),
- ylab = "Frequência",
- xlab = "CFC",
- main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
- auto.key = list(corner = c(0.75, 0.95),
- text = c("não",
- 'sim')))
-
-
+str(SoaresEx18)
+
+coletac <- xtabs(freq ~ cfc + ia, data = SoaresEx18)
+addmargins(coletac)
+
+barchart(coletac,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("CFC < 80",
+ "80 <= CFC < 279",
+ "CFC >= 279"))),
+ ylab = "Frequência",
+ xlab = "CFC",
+ auto.key = list(title = "Infato do miocardio",
+ cex.title = 1.1,
+ columns = 2,
+ text = c("não", "sim")))
+
+mosaicplot(coletac)
}
\keyword{AAS}
diff --git a/man/SoaresEx19.Rd b/man/SoaresEx19.Rd
index 2d068d7f2872031dbb7c18633e3ee25a70341991..03a08004c27ac8532f5a6f34b8315878422054e4 100644
--- a/man/SoaresEx19.Rd
+++ b/man/SoaresEx19.Rd
@@ -2,8 +2,8 @@
% Please edit documentation in R/SoaresEx19.R
\name{SoaresEx19}
\alias{SoaresEx19}
-\title{Eficácia do exame clínico neurológico}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Eficácia do Exame Clínico Neurológico}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
@@ -11,46 +11,48 @@
\item{\code{ex}}{Exame neurológico alterado ou normal.}
-\item{ef}{Eficiência do exame.}
+\item{\code{freq}}{Eficiência do exame.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex 19, pg 128.
+SOARES; SIQUEIRA (2002), pág. 128, exercício 19. TODO citar
+ Tavares (1995), colocar a referência completa.
}
\description{
A hemorragia peri-intraventricular (HPIV) é uma das
causas mais frequentes de agressão ao sistema nervoso central no
- período de neonatal e a segunda causa mais frequente de morte em
- prematuros. Atualmente, o método de escolha para diagnóstico
+ período de neonatal e a segunda causa mais frequente de morte em
+ prematuros. Atualmente, o método de escolha para diagnóstico
consiste em técnicas não invasivas (ultra-sonografia e tomografia
- computacionalizada). Tavares (1995) estudou a ocorrência desta
- enfermidade em 120 dos 129 recém-nascidos com peso menor que
- 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
+ computacionalizada). Tavares (1995) estudou a ocorrência desta
+ enfermidade em 120 dos 129 recém-nascidos com peso menor que
+ 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
neurológico, as crianças foram examinadas por um pediatra clínico
- com formação em neonatologia, sem o conhecimento prévio dos
- exames ultrasonográficos, que confirmam ou não diagnóstico
+ com formação em neonatologia, sem o conhecimento prévio dos
+ exames ultrasonográficos, que confirmam ou não diagnóstico
fornecido pelo médico.
}
\examples{
library(lattice)
+
data(SoaresEx19)
+str(SoaresEx19)
-a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
-barchart(a, horizontal = FALSE,
- stack = FALSE,
- scales=list(x=list(labels=c("Ausente","Presente"))),
- ylab = "Frequência",
- xlab = "HPIV",
- main = "Eficácia do exame clínico neurológico",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Exame Neurológico Alterado",
- 'Exame Neurológico Normal')))
+a <- xtabs(freq ~ hpiv + ex, data = SoaresEx19)
+addmargins(a)
+mosaicplot(a)
+barchart(a,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Ausente", "Presente"))),
+ ylab = "Frequência",
+ xlab = "HPIV",
+ auto.key = list(text = c("Exame Neurológico Alterado",
+ "Exame Neurológico Normal")))
}
\keyword{AAS}