Wine

Description

The data used here refer to 21 wines of Val de Loire.

Usage

data(wine)

Format

A data frame with 21 rows (the number of wines) and 31 columns: the first column corresponds to the label of origin, the second column corresponds to the soil, and the others correspond to sensory descriptors.

Source

Centre de recherche INRA d'Angers

Examples

data(wine)

## Example of PCA
res.pca = PCA(wine,ncp=5, quali.sup = 1:2)

## Not run: 
## Example of MCA
res.mca = MCA(wine,ncp=5, quanti.sup = 3:ncol(wine))

## Example of MFA
res.mfa = MFA(wine,group=c(2,5,3,10,9,2),type=c("n",rep("s",5)),ncp=5,
    name.group=c("orig","olf","vis","olfag","gust","ens"),
    num.group.sup=c(1,6),graph=FALSE)
plotellipses(res.mfa)
plotellipses(res.mfa,keepvar="Label") ## for 1 variable

## End(Not run)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(FactoMineR)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/FactoMineR/wine.Rd_%03d_medium.png", width=480, height=480)
> ### Name: wine
> ### Title: Wine
> ### Aliases: wine
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(wine)
> 
> ## Example of PCA
> res.pca = PCA(wine,ncp=5, quali.sup = 1:2)
dev.new(): using pdf(file="Rplots881.pdf")
dev.new(): using pdf(file="Rplots882.pdf")
> 
> ## Not run: 
> ##D ## Example of MCA
> ##D res.mca = MCA(wine,ncp=5, quanti.sup = 3:ncol(wine))
> ##D 
> ##D ## Example of MFA
> ##D res.mfa = MFA(wine,group=c(2,5,3,10,9,2),type=c("n",rep("s",5)),ncp=5,
> ##D     name.group=c("orig","olf","vis","olfag","gust","ens"),
> ##D     num.group.sup=c(1,6),graph=FALSE)
> ##D plotellipses(res.mfa)
> ##D plotellipses(res.mfa,keepvar="Label") ## for 1 variable
> ## End(Not run)
> 
> 
> 
> 
> 
> dev.off()
png 
  2 
>