sheishu: The Seishu Wine Study
In ACSWR: A Companion Package for the Book "A Course in Statistics with R"

Description Usage Format References Examples

The odor and taste of wines are recorded in a study. It is believed that the variables such as the pH concentration, alcohol content, total sugar, etc, explain the odor and taste of the wine.

1	data(sheishu)

A data frame with 30 observations on the following 10 variables.

Taste: taste
Odor: odor
pH: pH concentration
Acidity_1: Acidity 1
Acidity_2: Acidity 2
Sake_meter: Sake meter
Direct_reducing_sugar: Direct reducing sugar
Total_sugar: Total sugar
Alcohol: type of alcohol
Formyl_nitrogen: Formyl nitrogen

Rencher, A.C. (2002). Methods of Multivariate Analysis, 2e. J. Wiley.

data(sheishu)
noc <- c(2,3,3,2)
nov <- 10
v <- nrow(sheishu)-1
varsheishu <- var(sheishu)
s11 <- varsheishu[1:2,1:2]
s22 <- varsheishu[3:5,3:5]
s33 <- varsheishu[6:8,6:8]
s44 <- varsheishu[9:10,9:10]
u <- det(varsheishu)/(det(s11)*det(s22)*det(s33)*det(s44))
a2 <- nov^2 - sum(noc^2)
a3 <- nov^3 - sum(noc^3)
f <- a2/2
cc <- 1 - (2*a3 + 3*a2)/(12*f*v)
u1 <- -v*cc*log(u)
u; a2; a3; f; cc; u1
qchisq(1-0.001,37)