diff --git a/.RData b/.RData new file mode 100644 index 0000000000000000000000000000000000000000..81b3bbb4725897a4644151ef427f5019bad3e824 Binary files /dev/null and b/.RData differ diff --git a/R/SoaresEx7.6.R b/R/SoaresEx7.6.R new file mode 100644 index 0000000000000000000000000000000000000000..1608147218d08498925e9ad989afe32bf4c0f6ba --- /dev/null +++ b/R/SoaresEx7.6.R @@ -0,0 +1,39 @@ +#' @name SoaresEx7.6 +#' @title Pressão sanguínea sistólica de 35 indivíduos. +#' @description 35 pacientes com doença arterial coronariana, de idade +#' entre 35 e 75 anos, foram submetidos a teste ergométrico (Miller +#' et al., 1990). Os estudos realizaram-se em bicicleta ergométrica, +#' com os exercícios continuando até angina ou fadiga que requeresse +#' a suspensão da atividade. Os dados apresentados referem-se a +#' pressão sanguíneamsistólica em mmHg dos indivíduos em repouso e +#' no pico do exercício. +#' @format Um \code{data.frame} com 70 observações e 2 variáveis. +#' +#' \describe{ +#' +#' \item{\code{ps}}{Pressão sanguínea sistólica em mmHg dos indivíduos +#' em repouso e no pico do exercício.} +#' +#' \item{\code{exp}}{Variável explicativa com os valores obtidos.} +#' +#' } +#' @keywords AAS +#' @source SOARES; SIQUEIRA, (2002), Ex.7.6, pg.259. +#' @references MILLER, P. F., SHEPS, D. S., BRAGDON, E. E. et al. +#' Aging and pain perception in ischemic heart disease. American +#' Heart Journal, v.120, p.22-30, 1990. +#' @examples +#' +#' library(lattice) +#' data(SoaresEx7.6) +#' SoaresEx7.6$n <- seq(1:35) +#' xyplot(exp~n|ps, data = SoaresEx7.6, +#' type = c('g', 'b'), +#' main = 'Pressão sanguínea sistólica de 35 indivíduos', +#' xlab = 'Pacientes que participaram do estudo', +#' ylab = 'Pressão sanguínea em mmHg') +#' +#' +#' +#' +NULL diff --git a/data-raw/SoaresEx7.6.txt b/data-raw/SoaresEx7.6.txt new file mode 100644 index 0000000000000000000000000000000000000000..2634aa02eb8c61a960eeaec66fbc1f8c27a79d26 --- /dev/null +++ b/data-raw/SoaresEx7.6.txt @@ -0,0 +1,71 @@ +ps exp +repouso 175 +repouso 140 +repouso 140 +repouso 148 +repouso 154 +repouso 140 +repouso 170 +repouso 158 +repouso 175 +repouso 140 +repouso 154 +repouso 150 +repouso 132 +repouso 178 +repouso 122 +repouso 128 +repouso 160 +repouso 125 +repouso 120 +repouso 150 +repouso 162 +repouso 172 +repouso 178 +repouso 168 +repouso 134 +repouso 154 +repouso 130 +repouso 120 +repouso 160 +repouso 160 +repouso 150 +repouso 170 +repouso 122 +repouso 180 +repouso 140 +exercicio 190 +exercicio 160 +exercicio 225 +exercicio 190 +exercicio 232 +exercicio 170 +exercicio 200 +exercicio 190 +exercicio 185 +exercicio 170 +exercicio 166 +exercicio 174 +exercicio 144 +exercicio 214 +exercicio 154 +exercicio 150 +exercicio 218 +exercicio 172 +exercicio 186 +exercicio 180 +exercicio 194 +exercicio 204 +exercicio 220 +exercicio 220 +exercicio 168 +exercicio 180 +exercicio 220 +exercicio 146 +exercicio 214 +exercicio 160 +exercicio 170 +exercicio 204 +exercicio 162 +exercicio 220 +exercicio 190 diff --git a/data/SoaresEx7.6.rda b/data/SoaresEx7.6.rda new file mode 100644 index 0000000000000000000000000000000000000000..38052721ffb7e4e92123ead5c904e1a4d652fb51 Binary files /dev/null and b/data/SoaresEx7.6.rda differ diff --git a/man/SoaresEx7.6.Rd b/man/SoaresEx7.6.Rd new file mode 100644 index 0000000000000000000000000000000000000000..009457f1839f71712b148e78664ba306af7b6b9a --- /dev/null +++ b/man/SoaresEx7.6.Rd @@ -0,0 +1,49 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/SoaresEx7.6.R +\name{SoaresEx7.6} +\alias{SoaresEx7.6} +\title{Pressão sanguínea sistólica de 35 indivíduos.} +\format{Um \code{data.frame} com 70 observações e 2 variáveis. + +\describe{ + +\item{\code{ps}}{Pressão sanguínea sistólica em mmHg dos indivíduos + em repouso e no pico do exercício.} + +\item{\code{exp}}{Variável explicativa com os valores obtidos.} + +}} +\source{ +SOARES; SIQUEIRA, (2002), Ex.7.6, pg.259. +} +\description{ +35 pacientes com doença arterial coronariana, de idade + entre 35 e 75 anos, foram submetidos a teste ergométrico (Miller + et al., 1990). Os estudos realizaram-se em bicicleta ergométrica, + com os exercícios continuando até angina ou fadiga que requeresse + a suspensão da atividade. Os dados apresentados referem-se a + pressão sanguíneamsistólica em mmHg dos indivíduos em repouso e + no pico do exercício. +} +\examples{ + +library(lattice) +data(SoaresEx7.6) +SoaresEx7.6$n <- seq(1:35) +xyplot(exp~n|ps, data = SoaresEx7.6, + type = c('g', 'b'), + main = 'Pressão sanguínea sistólica de 35 indivíduos', + xlab = 'Pacientes que participaram do estudo', + ylab = 'Pressão sanguínea em mmHg') + + + + +} +\references{ +MILLER, P. F., SHEPS, D. S., BRAGDON, E. E. et al. + Aging and pain perception in ischemic heart disease. American + Heart Journal, v.120, p.22-30, 1990. +} +\keyword{AAS} +