rebmix (version 2.4.2)

wine: Wine Recognition Data

Description

These data are the results of a chemical analysis of wines grown in the same region in Italy but derived from three different cultivars (1-3). The analysis determined the quantities of 13 constituents: alcohol, malic acid, ash, alcalinity of ash, magnesium, total phenols, flavanoids, nonflavanoid phenols, proanthocyanins, colour intensity, hue, OD280/OD315 of diluted wines, and proline found in each of the three types of the wines. The number of instances in classes 1 to 3 is 59, 71 and 48, respectively.

Usage

wine

format

wine is a data frame with 178 cases (rows) and 14 variables (columns) named:

1. Alcoholcontinuous.

Malic.Acid continuous. Ash continuous. Alcalinity.of.Ash continuous. Magnesium continuous. Total.Phenols continuous. Flavanoids continuous. Nonflavanoid.Phenols continuous. Proanthocyanins continuous. Color.Intensity continuous. Hue continuous. OD280.OD315.of.Diluted.Wines continuous. Proline continuous. Cultivar continuous.

source

Frank A, Asuncion A (2010). UCI Machine Learning Repository. http://archive.ics.uci.edu/ml.

References

Roberts SJ, Everson R, Rezek I (2000). Maximum Certainty Data Partitioning. Pattern Recognition, 33, 833-839.

Examples

data("wine")

colnames(wine)

## Split wine dataset into three subsets for three Cultivars
## and remove Cultivar column from datasets.

winecolnames <- !(colnames(wine) %in% "Cultivar")

wine1 <- wine[wine$Cultivar == 1, winecolnames]
wine2 <- wine[wine$Cultivar == 2, winecolnames]
wine3 <- wine[wine$Cultivar == 3, winecolnames]

wine <- wine[ , winecolnames]

## Write datasets without Cultivar information into tab 
## delimited ASCII files.

write.table(wine, file = "wine.txt", sep = "t", 
  eol = "", row.names = FALSE, col.names = FALSE)
write.table(wine1, file = "wine1.txt", sep = "t", 
  eol = "", row.names = FALSE, col.names = FALSE)
write.table(wine2, file = "wine2.txt", sep = "t", 
  eol = "", row.names = FALSE, col.names = FALSE)
write.table(wine3, file = "wine3.txt", sep = "t", 
  eol = "", row.names = FALSE, col.names = FALSE)