Learn R Programming

MVar.pt (version 1.1)

Data_Cafes: Conjunto de Dados de Frequencia

Description

Conjunto de Dados Categorizados por Cafes, sobre habilidades sensoriais no consumo de cafes especiais.

Usage

data(Data_Cafes)

Arguments

format

Conjunto de dados de uma pesquisa feita com o proposito de avaliar a concordancia entre as respostas de diferentes grupos de consumidores com diferentes habilidades sensoriais. O experimento relaciona a analise sensorial de cafes especiais definidos por (A) Bourbon Amarelo, cultivado a altitudes maiores do que 1200 m.; (D) idem a (A) diferenciando apenas no preparo das amostras; (B) Acaia cultivados a altitude menores do que 1.100m; (C) idem ao (B) porem diferenciando o preparo das amostras. Aqui os dados estao categorizados por cafes. O exemplo dado demonstra os resultados encontrados em OSSANI e CIRILLO (2014).

References

OSSANI, P. C.; CIRILLO, M. A.; Habilidades Sensoriais de Grupos Heterogeneos de Consumidores de Cafes Especiais Discriminadas pelo Metodo MFACT. in: XIII ENCONTRO MINEIRO DE ESTATISTICA (MGEST), 13., 2014, Diamantina. Anais...Diamantina: UFVJM, 2014. OSSANI, P. C. Qualidade de cafes especiais e nao especiais por meio da analise de multiplos fatores para tabelas de contingencias. 2015. 107 p. Dissertacao (Mestrado em Estatistica e Experimentacao Agropecuaria) - Universidade Federal de Lavras, Lavras, 2015.

Examples

Run this code
data(Data_Cafes) # conjundo de dados categorizados

Matriz = Data_Cafes[,2:ncol(Data_Cafes)] 

rownames(Matriz) <- as.character(t(Data_Cafes[1:nrow(Data_Cafes),1]))

GroupNames =c("Cafe A","Cafe B","Cafe C","Cafe D")

MF <- MFA(Matriz,c(16,16,16,16),c(rep("f",4)),GroupNames) 

print("Variancias dos Componentes Principais:")
print(round(MF$MatrixA,2))

print("Matriz das Inercias Parciais/Escores das Variaveis:")
print(round(MF$MatrixEscVar,2))

Titulos=c("Individuos","Individuos/Tipos Cafes","Inercias Grupos")

Plot.MFA(MF,Titulos,2,"n","s","n") # Imprime varios graficos da tela

Run the code above in your browser using DataLab