diff --git a/R/MingotiAnA1.R b/R/MingotiAnA1.R new file mode 100644 index 0000000000000000000000000000000000000000..6a30f905fb97e85f16f4a2d20e73f14577154e0f --- /dev/null +++ b/R/MingotiAnA1.R @@ -0,0 +1,55 @@ +#' @name MingotiAnA1 +#' @title Aceitação de um novo produto comestível +#' @description Pesquisa de mercado feita para avaliar a aceitação do +#' consumidor por um novo produto comestível. Cada consumidor foi +#' convidado a dar uma nota de 1 a 5 para sete atributos do produto. +#' +#' @format data.frame com 200 observações e 9 variáveis, em que +#' +#' \describe{ +#' +#' \item{id}{Número de identificação do indivíduo.} +#' +#' \item{sexo}{Variável dicotômica para o sexo do indivíduo, onde 0 +#' para mulheres e 1 para homens.} +#' +#' \item{sabor}{Nota dada pelo indivíduo para o sabor do produto, +#' variando de 1 a 5.} +#' +#' \item{aroma}{Nota dada pelo indivíduo para o aroma do produto, +#' variando de 1 a 5.} +#' +#' \item{cor}{Nota dada pelo indivíduo para a cor do produto, +#' variando de 1 a 5.} +#' +#' \item{textu}{Nota dada pelo indivíduo para a textura do produto, +#' variando de 1 a 5.} +#' +#' \item{utili}{Nota dada pelo indivíduo para a utilidade do produto, +#' variando de 1 a 5.} +#' +#' \item{local}{Nota dada pelo indivíduo para a facilidade de encontrar +#' o produto para compra, variando de 1 a 5.} +#' +#' \item{embal}{Nota dada pelo indivíduo para a embalagem do produto, +#' variando de 1 a 5.} +#' +#' } +#' +#' @keywords Pesquisa produto +#' @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 108). +#' +#' @examples +#' +#' data(MingotiAnA1) +#' +#' da <- reshape(MingotiAnA1, direction = "long", varying = list(3:9), +#' v.names = "notas", timevar = "atributo") +#' library(lattice) +#' +#' xyplot(notas ~ atributo, groups = sexo, data = da, +#' jitter.y = TRUE, type = c("p", "a"), auto.key = TRUE) +#' +NULL \ No newline at end of file diff --git a/data-raw/MingotiAnA1.txt b/data-raw/MingotiAnA1.txt new file mode 100644 index 0000000000000000000000000000000000000000..02d9d6eb49baaba7600da8812f2195b65b0d9634 --- /dev/null +++ b/data-raw/MingotiAnA1.txt @@ -0,0 +1,201 @@ +id sexo sabor aroma cor textu utili local embal +1 1 5 5 4 5 3 4 1 +2 0 1 2 1 2 3 4 1 +3 1 4 5 3 4 5 5 4 +4 1 4 5 3 5 4 5 4 +5 1 5 5 4 5 5 5 5 +6 0 2 3 1 3 2 3 2 +7 0 1 2 1 2 3 4 3 +8 1 3 4 2 5 4 5 4 +9 1 3 4 2 4 2 3 2 +10 1 4 5 3 5 2 3 2 +11 1 4 5 3 5 4 5 4 +12 0 1 2 1 3 2 3 2 +13 1 3 4 2 4 3 4 4 +14 1 5 5 4 5 3 4 1 +15 1 2 3 1 3 4 5 3 +16 1 4 5 3 5 2 3 2 +17 0 2 3 1 3 2 3 2 +18 0 5 5 4 5 2 3 2 +19 0 2 3 1 3 3 4 4 +20 1 2 3 1 4 4 5 2 +21 1 5 5 4 5 4 5 4 +22 1 5 5 4 5 2 3 3 +23 0 2 3 1 3 5 5 4 +24 1 4 5 3 5 5 5 5 +25 0 4 5 3 5 3 4 4 +26 1 4 5 3 5 3 4 4 +27 1 5 5 4 5 5 4 5 +28 0 5 5 4 5 4 5 4 +29 0 4 5 3 5 4 5 4 +30 0 2 3 1 3 3 4 2 +31 0 2 3 1 3 3 4 2 +32 0 3 4 2 4 4 5 4 +33 0 3 4 2 4 3 4 3 +34 0 1 2 1 2 3 4 3 +35 1 5 5 4 5 4 5 3 +36 0 3 4 2 5 3 4 4 +37 0 2 3 1 3 3 4 2 +38 0 2 3 1 3 3 4 2 +39 1 4 5 3 5 3 4 4 +40 0 1 2 2 2 2 3 1 +41 0 2 3 1 3 1 2 1 +42 1 5 5 4 5 2 3 2 +43 1 3 4 2 4 2 3 2 +44 1 3 4 2 4 5 5 5 +45 0 4 5 3 5 4 5 5 +46 1 5 5 4 5 3 4 4 +47 1 3 4 2 4 4 5 3 +48 0 5 5 4 5 4 5 2 +49 0 3 4 2 4 4 5 3 +50 1 5 5 4 5 3 4 3 +51 1 3 4 3 4 3 4 4 +52 1 2 3 1 3 3 4 3 +53 1 1 2 2 2 4 5 4 +54 1 5 5 4 5 4 5 3 +55 1 1 2 2 2 1 2 1 +56 1 4 5 3 5 2 3 2 +57 1 4 5 3 5 3 4 5 +58 1 1 2 2 2 4 5 5 +59 1 2 3 1 3 5 4 5 +60 0 4 5 3 5 3 4 2 +61 1 3 4 2 4 3 4 4 +62 1 5 5 4 5 2 3 2 +63 0 5 5 4 5 4 5 3 +64 1 5 5 4 5 2 3 1 +65 0 2 3 1 3 3 4 2 +66 1 1 2 2 2 3 4 5 +67 0 1 2 2 2 4 5 3 +68 1 1 2 1 2 3 4 3 +69 1 3 4 2 4 4 5 2 +70 1 5 5 4 5 2 3 3 +71 0 4 5 3 5 3 4 1 +72 1 5 5 4 5 5 4 4 +73 1 1 2 1 2 4 5 3 +74 0 1 2 1 2 4 5 3 +75 1 5 5 4 5 4 5 3 +76 0 4 5 3 5 2 3 2 +77 0 4 5 3 5 2 3 1 +78 1 4 5 3 5 2 3 3 +79 1 4 5 3 5 4 5 4 +80 0 5 5 4 5 4 5 2 +81 1 3 4 2 4 4 5 3 +82 0 2 3 1 3 3 4 4 +83 1 3 4 2 4 4 5 4 +84 1 4 5 3 5 4 5 2 +85 1 1 2 3 2 5 4 5 +86 0 5 5 4 5 5 5 5 +87 0 3 4 2 4 2 3 1 +88 1 2 3 1 3 4 5 3 +89 0 5 5 4 5 4 5 5 +90 1 4 5 3 5 2 3 2 +91 1 5 5 4 5 4 5 5 +92 1 5 5 4 5 3 4 1 +93 0 2 3 1 3 2 3 2 +94 1 4 5 3 5 5 5 4 +95 1 2 3 1 3 3 4 2 +96 1 3 4 2 4 5 3 5 +97 0 3 4 2 4 2 3 2 +98 1 5 5 4 5 4 5 5 +99 1 5 5 4 5 2 3 1 +100 0 2 3 1 3 3 4 4 +101 1 3 4 2 4 3 4 3 +102 1 1 2 3 2 5 4 5 +103 0 5 5 4 5 3 4 3 +104 1 1 2 3 2 5 4 5 +105 1 3 4 2 4 3 4 3 +106 1 1 2 3 2 4 5 4 +107 0 2 3 1 3 2 3 2 +108 1 1 2 2 2 5 5 5 +109 0 5 5 4 5 3 4 3 +110 0 1 2 2 2 2 3 2 +111 0 3 4 2 4 2 3 3 +112 1 5 5 4 5 4 5 4 +113 0 5 5 4 5 5 4 5 +114 0 5 5 4 5 3 4 4 +115 0 3 4 2 4 4 5 4 +116 0 5 5 4 5 3 4 4 +117 0 5 5 4 5 5 5 5 +118 0 5 5 4 5 3 4 4 +119 1 5 5 4 5 3 4 3 +120 0 4 5 3 5 5 4 5 +121 0 2 3 1 3 4 5 4 +122 0 1 2 2 2 4 5 4 +123 0 1 2 2 2 3 4 4 +124 0 5 5 4 5 3 4 3 +125 1 4 5 3 5 3 4 3 +126 0 4 5 3 5 5 4 5 +127 0 1 2 2 2 4 5 4 +128 0 3 4 2 4 2 3 2 +129 0 2 3 1 3 3 4 3 +130 0 5 5 4 5 5 4 5 +131 0 5 5 4 5 3 4 3 +132 1 5 5 4 5 2 3 3 +133 0 2 3 1 3 2 3 2 +134 1 1 2 3 2 2 3 2 +135 0 3 4 2 4 5 5 5 +136 1 1 2 3 2 5 5 5 +137 1 3 4 2 4 3 4 3 +138 0 1 2 3 2 4 5 4 +139 0 4 5 3 5 3 4 3 +140 0 4 5 3 5 3 4 3 +141 0 2 3 1 3 5 5 5 +142 0 2 3 2 3 4 5 4 +143 1 1 2 3 2 3 4 3 +144 1 4 5 3 5 1 2 1 +145 0 3 4 2 4 4 5 5 +146 1 2 3 1 3 3 4 4 +147 0 4 5 3 5 5 5 5 +148 1 4 5 3 5 3 4 3 +149 0 2 3 1 3 4 5 4 +150 1 1 2 3 2 2 3 2 +151 0 3 4 2 4 4 5 5 +152 1 4 5 3 5 4 5 5 +153 0 2 3 1 3 2 3 3 +154 0 2 3 1 3 3 4 4 +155 0 4 5 3 5 2 3 3 +156 1 2 3 1 3 4 5 5 +157 1 5 5 4 5 5 5 5 +158 1 5 5 4 5 3 4 4 +159 0 2 3 1 3 2 3 3 +160 0 1 2 2 2 2 3 3 +161 0 2 3 1 3 3 4 4 +162 0 5 5 4 5 3 4 4 +163 0 2 3 1 3 5 4 4 +164 0 1 2 3 2 5 4 4 +165 0 1 2 2 2 4 5 5 +166 1 5 5 4 5 3 4 4 +167 1 1 2 2 2 3 4 4 +168 0 4 5 3 5 4 5 5 +169 0 2 3 1 3 2 3 3 +170 0 1 2 2 2 4 5 5 +171 0 3 4 2 4 4 5 5 +172 0 4 5 3 5 4 5 5 +173 1 2 3 1 3 3 4 4 +174 0 5 5 4 5 4 5 5 +175 1 4 5 3 5 3 4 4 +176 0 1 2 3 2 3 4 4 +177 1 3 4 2 4 4 5 5 +178 1 2 3 1 3 4 5 5 +179 0 3 4 2 4 1 2 2 +180 1 4 5 3 5 4 5 5 +181 1 5 5 4 5 3 4 4 +182 0 2 3 1 3 3 4 4 +183 0 2 3 1 3 3 4 4 +184 0 2 3 1 3 4 5 5 +185 1 4 5 3 5 4 5 5 +186 0 3 4 2 4 3 4 4 +187 0 1 2 2 2 3 4 4 +188 1 4 5 3 5 4 5 5 +189 0 5 5 4 5 3 4 4 +190 0 3 4 2 4 2 3 3 +191 1 3 4 2 4 2 3 3 +192 1 1 2 2 2 4 5 5 +193 0 1 2 2 2 3 4 4 +194 0 3 4 2 4 5 4 4 +195 0 3 4 2 4 1 2 2 +196 1 4 5 3 5 4 5 5 +197 1 1 2 1 2 2 3 3 +198 0 2 3 1 3 2 3 3 +199 0 2 3 1 3 2 3 3 +200 1 4 5 3 5 2 3 3 \ No newline at end of file diff --git a/data/MingotiAnA1.rda b/data/MingotiAnA1.rda new file mode 100644 index 0000000000000000000000000000000000000000..9c289272d053b83fdd0309d4b5e97f7b814d7394 Binary files /dev/null and b/data/MingotiAnA1.rda differ diff --git a/man/MingotiAnA1.Rd b/man/MingotiAnA1.Rd new file mode 100644 index 0000000000000000000000000000000000000000..94b00787eb770887c2416043fcde36974326683f --- /dev/null +++ b/man/MingotiAnA1.Rd @@ -0,0 +1,61 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/MingotiAnA1.R +\name{MingotiAnA1} +\alias{MingotiAnA1} +\title{Aceitação de um novo produto comestível} +\format{data.frame com 200 observações e 9 variáveis, em que + +\describe{ + +\item{id}{Número de identificação do indivíduo.} + +\item{sexo}{Variável dicotômica para o sexo do indivíduo, onde 0 + para mulheres e 1 para homens.} + +\item{sabor}{Nota dada pelo indivíduo para o sabor do produto, + variando de 1 a 5.} + +\item{aroma}{Nota dada pelo indivíduo para o aroma do produto, + variando de 1 a 5.} + +\item{cor}{Nota dada pelo indivíduo para a cor do produto, + variando de 1 a 5.} + +\item{textu}{Nota dada pelo indivíduo para a textura do produto, + variando de 1 a 5.} + +\item{utili}{Nota dada pelo indivíduo para a utilidade do produto, + variando de 1 a 5.} + +\item{local}{Nota dada pelo indivíduo para a facilidade de encontrar + o produto para compra, variando de 1 a 5.} + +\item{embal}{Nota dada pelo indivíduo para a embalagem do produto, + variando de 1 a 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 108). +} +\description{ +Pesquisa de mercado feita para avaliar a aceitação do + consumidor por um novo produto comestível. Cada consumidor foi + convidado a dar uma nota de 1 a 5 para sete atributos do produto. +} +\examples{ + +data(MingotiAnA1) + +da <- reshape(MingotiAnA1, direction = "long", varying = list(3:9), + v.names = "notas", timevar = "atributo") +library(lattice) + +xyplot(notas ~ atributo, groups = sexo, data = da, + jitter.y = TRUE, type = c("p", "a"), auto.key = TRUE) + +} +\keyword{Pesquisa} +\keyword{produto} +