Price of Barolo wine

Share:

Description

A data frame with prices of bottles of Barolo wine and some auxiliary variables

Usage

1

Format

A data frame with 307 observations on five variables, as follows:

reseller reseller code (factor with levels A, B, C, D)
vintage vintage year (numeric)
volume content volume in centilitres (numeric)
price price in Euro (numeric)
age age in 2010 (numeric)

For six items, vintage is NA's and so also age. Three items have a non-standard volume of 50 cl.

Details

The data have been obtained in July 2010 from the websites of four Italian wine resellers, selecting only quotations of Barolo wine, which is produced in the Piedmont region of Italy. The price does not include the delivery charge.

The data have been presented in Section 4.3.2 of the reference below, where a subset of them has been used for illustrative purposes. This subset refers to reseller "A" and bottles of 75cl.

Source

Azzalini, A. with the collaboration of Capitanio, A. (2014). The Skew-Normal and Related Families. Cambridge University Press, IMS Monographs series.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
data(barolo)
attach(barolo)  
f <- cut(age, c(0, 5,  6, 8, 11,  30))
table(volume, f)
plot(volume, price, col=as.numeric(f), pch=as.character(reseller))
legend(400, 990, col=1:5, lty=1, title="age class",
       legend=c("4-5", "6", "7-8", "9-11", "12-30"))
#
A75 <- (reseller=="A" & volume==75)
hist(log(price[A75],10), col="gray85")
# see Figure 4.7 of the source

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.