tuna {bayesm}R Documentation

Data on Canned Tuna Sales

Description

Volume of canned tuna sales as well as a measure of display activity, log price and log wholesale price. Weekly data aggregated to the chain level. This data is extracted from the Dominick's Finer Foods database maintained by the University of Chicago http://http://research.chicagogsb.edu/marketing/databases/dominicks/dataset.aspx. Brands are seven of the top 10 UPCs in the canned tuna product category.

Usage

data(tuna)

Format

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

WEEK
a numeric vector
MOVE1
unit sales of Star Kist 6 oz.
MOVE2
unit sales of Chicken of the Sea 6 oz.
MOVE3
unit sales of Bumble Bee Solid 6.12 oz.
MOVE4
unit sales of Bumble Bee Chunk 6.12 oz.
MOVE5
unit sales of Geisha 6 oz.
MOVE6
unit sales of Bumble Bee Large Cans.
MOVE7
unit sales of HH Chunk Lite 6.5 oz.
NSALE1
a measure of display activity of Star Kist 6 oz.
NSALE2
a measure of display activity of Chicken of the Sea 6 oz.
NSALE3
a measure of display activity of Bumble Bee Solid 6.12 oz.
NSALE4
a measure of display activity of Bumble Bee Chunk 6.12 oz.
NSALE5
a measure of display activity of Geisha 6 oz.
NSALE6
a measure of display activity of Bumble Bee Large Cans.
NSALE7
a measure of display activity of HH Chunk Lite 6.5 oz.
LPRICE1
log of price of Star Kist 6 oz.
LPRICE2
log of price of Chicken of the Sea 6 oz.
LPRICE3
log of price of Bumble Bee Solid 6.12 oz.
LPRICE4
log of price of Bumble Bee Chunk 6.12 oz.
LPRICE5
log of price of Geisha 6 oz.
LPRICE6
log of price of Bumble Bee Large Cans.
LPRICE7
log of price of HH Chunk Lite 6.5 oz.
LWHPRIC1
log of wholesale price of Star Kist 6 oz.
LWHPRIC2
log of wholesale price of Chicken of the Sea 6 oz.
LWHPRIC3
log of wholesale price of Bumble Bee Solid 6.12 oz.
LWHPRIC4
log of wholesale price of Bumble Bee Chunk 6.12 oz.
LWHPRIC5
log of wholesale price of Geisha 6 oz.
LWHPRIC6
log of wholesale price of Bumble Bee Large Cans.
LWHPRIC7
log of wholesale price of HH Chunk Lite 6.5 oz.
FULLCUST
total customers visits

Source

Chevalier, A. Judith, Anil K. Kashyap and Peter E. Rossi (2003), "Why Don't Prices Rise During Periods of Peak Demand? Evidence from Scanner Data," The American Economic Review , 93(1), 15-37.

References

Chapter 7, Bayesian Statistics and Marketing by Rossi et al.
http://faculty.chicagogsb.edu/peter.rossi/research/bsm.html

Examples

data(tuna)
cat(" Quantiles of sales",fill=TRUE)
mat=apply(as.matrix(tuna[,2:5]),2,quantile)
print(mat)

##
## example of processing for use with rivGibbs
##
if(0)
{
  data(tuna)                          
  t = dim(tuna)[1]    
  customers = tuna[,30]                 
  sales = tuna[,2:8]                                                        
  lnprice = tuna[,16:22]      
  lnwhPrice= tuna[,23:29]      
  share=sales/mean(customers)
  shareout=as.vector(1-rowSums(share))
  lnprob=log(share/shareout)  

# create w matrix

  I1=as.matrix(rep(1, t))
  I0=as.matrix(rep(0, t))
  intercept=rep(I1, 4)
  brand1=rbind(I1, I0, I0, I0)
  brand2=rbind(I0, I1, I0, I0)
  brand3=rbind(I0, I0, I1, I0)
  w=cbind(intercept, brand1, brand2, brand3)  
  
## choose brand 1 to 4        
          
  y=as.vector(as.matrix(lnprob[,1:4])) 
  X=as.vector(as.matrix(lnprice[,1:4]))     
  lnwhPrice=as.vector(as.matrix (lnwhPrice[1:4]))   
  z=cbind(w, lnwhPrice)
                        
  Data=list(z=z, w=w, x=X, y=y)
  Mcmc=list(R=R, keep=1)
  set.seed(66)
  out=rivGibbs(Data=Data,Mcmc=Mcmc)

  cat(" betadraws ",fill=TRUE)
  summary(out$betadraw)

if(0){
## plotting examples
plot(out$betadraw)
}
}

  

[Package bayesm version 2.2-2 Index]