diff --git a/R/MingotiAnA2.R b/R/MingotiAnA2.R new file mode 100644 index 0000000000000000000000000000000000000000..50b56a2c2f0df8fa58615dbff999251be7d36f15 --- /dev/null +++ b/R/MingotiAnA2.R @@ -0,0 +1,51 @@ +#' @name MingotiAnA2 +#' @title Desempenho de 44 funcionários +#' @description Dados referente a 44 funcionários de uma empresa, onde +#' foram atribuídas notas para desempenho de vendas, desempenho nos +#' lucros, captação de novos clientes, testes que medem a habilidade +#' de escrita, lógica e matemática. +#' @format Um \code{data.frame} com 44 observações e 8 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{funcio}}{Número de identificação do funcionário.} +#' +#' \item{\code{venda}}{Nota atribuída ao funcionário no seu desempenho +#' nas vendas, variando entre 20,38 a 27,70.} +#' +#' \item{\code{lucro}}{Nota atribuída ao funcionário no seu desempenho +#' no lucro da empresa, variando entre 22,45 a 30,58.} +#' +#' \item{\code{clie}}{Nota atribuída ao funcionário no seu desempenho +#' na captação de novos clientes, variando entre 23,58 a 28,82.} +#' +#' \item{\code{escri}}{Nota atribuída a habilidade do funcionário em +#' escrita, variando entre 2,5 a 9,0.} +#' +#' \item{\code{logica}}{Nota atribuída a habilidade do funcionário em +#' lógica, variando entre 4,0 a 10,0.} +#' +#' \item{\code{social}}{Nota atribuída a habilidade do funcionário em +#' social, variando entre 2,5 a 7,5.} +#' +#' \item{\code{mate}}{Nota atribuída a habilidade do funcionário em +#' matemática, variando entre 4,5 a 25,5.} +#' +#' } +#' @keywords Análise fatorial +#' @source Mingoti, S.A. (2005). Análise de dados através de métodos de +#' estatística multivariada - uma abordagem aplicada. +#' Belo Horizonte, MG: Editora UFMG. (pg 123 (Ex 4.2); 126 (Ex 4.3)). +#' @examples +#' +#' data(MingotiAnA2) +#' +#' library(lattice) +#' +#' da <- reshape(MingotiAnA2, direction = "long", varying = list(2:8), +#' v.names = "notas", timevar = "atributo") + +#' xyplot(notas ~ atributo, data = da, +#' jitter.y = TRUE, type = c("p", "a")) +#' +NULL \ No newline at end of file diff --git a/data-raw/MingotiAnA2.txt b/data-raw/MingotiAnA2.txt new file mode 100644 index 0000000000000000000000000000000000000000..a8ca0acc46b70c982517e3f830a2cb4925481de2 --- /dev/null +++ b/data-raw/MingotiAnA2.txt @@ -0,0 +1,45 @@ +funcio venda lucro clie escri logica social mate +1 23.25 24.00 24.45 4.5 6.0 4.5 10.0 +2 22.20 22.95 24.20 3.5 5.0 5.0 7.5 +3 23.75 25.07 24.75 4.0 6.0 4.5 13.0 +4 25.32 25.95 26.70 6.5 7.0 6.0 14.5 +5 25.50 26.95 25.75 5.0 7.5 6.0 16.0 +6 23.95 24.37 24.82 5.0 7.0 5.5 10.5 +7 23.87 24.87 24.75 4.5 6.0 4.5 12.5 +8 27.70 30.50 28.82 9.0 10.0 7.5 25.5 +9 25.70 27.07 25.95 5.0 8.5 6.5 15.5 +10 26.70 30.12 25.50 7.0 9.0 5.5 19.5 +11 25.82 27.45 26.00 6.0 8.5 6.0 16.0 +12 24.87 27.95 25.07 5.0 9.0 4.0 15.5 +13 25.87 28.12 26.75 8.0 8.5 5.5 17.0 +14 24.87 26.37 25.57 4.0 5.0 5.5 17.0 +15 25.00 26.75 25.70 6.5 5.0 4.0 17.0 +16 20.37 23.37 23.75 3.5 4.5 2.5 8.0 +17 25.32 26.32 25.70 5.5 6.0 5.5 16.0 +18 25.82 27.70 25.87 5.5 7.0 5.5 17.5 +19 23.82 26.07 25.75 2.5 7.0 6.5 15.0 +20 24.87 26.32 26.57 8.5 8.5 5.5 13.5 +21 22.12 23.82 23.95 5.0 6.0 3.5 7.5 +22 24.82 28.75 26.07 2.5 5.5 5.5 21.0 +23 21.87 23.12 23.95 4.5 4.5 3.5 8.0 +24 26.32 28.50 26.32 6.0 7.5 6.0 18.5 +25 26.75 30.25 27.25 8.0 9.5 6.0 19.5 +26 23.32 25.50 24.45 5.0 7.5 3.5 11.5 +27 26.70 29.50 26.82 7.0 8.0 6.0 19.5 +28 26.70 30.00 26.20 5.0 8.0 5.5 24.5 +29 23.07 22.70 24.95 4.0 5.0 6.5 8.5 +30 26.57 30.25 26.12 4.5 8.5 5.5 22.0 +31 26.50 29.87 27.62 9.0 7.5 5.0 21.5 +32 22.07 23.20 24.20 6.5 5.5 4.0 5.0 +33 24.00 25.82 25.12 3.5 7.5 5.5 13.5 +34 23.57 23.62 24.75 5.0 6.0 5.5 9.5 +35 26.62 30.37 27.62 9.0 8.5 5.0 21.0 +36 26.62 28.87 26.75 4.0 6.5 7.0 23.5 +37 23.00 24.87 25.87 9.0 8.0 4.0 9.0 +38 25.50 24.95 25.82 6.5 6.0 7.0 14.0 +39 27.07 30.57 27.12 7.5 9.5 6.0 20.5 +40 26.70 29.75 26.70 7.0 10.0 6.0 18.5 +41 21.07 22.45 23.57 4.0 4.0 4.0 4.5 +42 26.07 27.37 26.62 7.0 6.0 6.0 18.0 +43 26.50 29.62 26.25 6.0 8.0 5.5 19.5 +44 21.07 22.45 23.57 4.0 4.0 4.0 4.5 \ No newline at end of file diff --git a/data/MingotiAnA2.rda b/data/MingotiAnA2.rda new file mode 100644 index 0000000000000000000000000000000000000000..941686c76c80adce14af98f6aeaf7ffe774c30e7 Binary files /dev/null and b/data/MingotiAnA2.rda differ diff --git a/man/MingotiAnA2.Rd b/man/MingotiAnA2.Rd new file mode 100644 index 0000000000000000000000000000000000000000..fd01672c7449515896320afa86eb8c97839a4e3c --- /dev/null +++ b/man/MingotiAnA2.Rd @@ -0,0 +1,59 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/MingotiAnA2.R +\name{MingotiAnA2} +\alias{MingotiAnA2} +\title{Desempenho de 44 funcionários} +\format{Um \code{data.frame} com 44 observações e 8 variáveis, em que + +\describe{ + +\item{\code{funcio}}{Número de identificação do funcionário.} + +\item{\code{venda}}{Nota atribuída ao funcionário no seu desempenho + nas vendas, variando entre 20,38 a 27,70.} + +\item{\code{lucro}}{Nota atribuída ao funcionário no seu desempenho + no lucro da empresa, variando entre 22,45 a 30,58.} + +\item{\code{clie}}{Nota atribuída ao funcionário no seu desempenho + na captação de novos clientes, variando entre 23,58 a 28,82.} + +\item{\code{escri}}{Nota atribuída a habilidade do funcionário em + escrita, variando entre 2,5 a 9,0.} + +\item{\code{logica}}{Nota atribuída a habilidade do funcionário em + lógica, variando entre 4,0 a 10,0.} + +\item{\code{social}}{Nota atribuída a habilidade do funcionário em + social, variando entre 2,5 a 7,5.} + +\item{\code{mate}}{Nota atribuída a habilidade do funcionário em + matemática, variando entre 4,5 a 25,5.} + +}} +\source{ +Mingoti, S.A. (2005). Análise de dados através de métodos de + estatística multivariada - uma abordagem aplicada. + Belo Horizonte, MG: Editora UFMG. (pg 123 (Ex 4.2); 126 (Ex 4.3)). +} +\description{ +Dados referente a 44 funcionários de uma empresa, onde + foram atribuídas notas para desempenho de vendas, desempenho nos + lucros, captação de novos clientes, testes que medem a habilidade + de escrita, lógica e matemática. +} +\examples{ + +data(MingotiAnA2) + +library(lattice) + +da <- reshape(MingotiAnA2, direction = "long", varying = list(2:8), + v.names = "notas", timevar = "atributo") +xyplot(notas ~ atributo, data = da, + jitter.y = TRUE, type = c("p", "a")) + +} +\keyword{Análise} +\keyword{fatorial} +