print.dirichlet {dirichlet} | R Documentation |
This function prints a 'dirichlet' object. It is a method for the
generic function print
of class 'dirichlet'. It prints
descriptive information on the product category, brand, and the
estimated Dirichlet model parameters.
print.dirichlet(x,...)
x |
An object of "dirichlet" class. |
... |
Other parameters passing to the generic function |
The following information is printed:
NULL
Feiming Chen
The Dirichlet: A Comprehensive Model of Buying Behavior. G.J. Goodhardt, A.S.C. Ehrenberg, C. Chatfield. Journal of the Royal Statistical Society. Series A (General), Vol. 147, No. 5 (1984), pp. 621-655
dirichlet
, summary.dirichlet
,
plot.dirichlet
, dirichlet-package
cat.pen <- 0.56 # Category Penetration cat.buyrate <- 2.6 # Category Buyer's Average Purchase Rate in a given period. brand.share <- c(0.25, 0.19, 0.1, 0.1, 0.09, 0.08, 0.03, 0.02) # Brands' Market Share brand.pen.obs <- c(0.2,0.17,0.09,0.08,0.08,0.07,0.03,0.02) # Brand Penetration brand.name <- c("Colgate DC", "Macleans","Close Up","Signal","ultrabrite", "Gibbs SR","Boots Priv. Label","Sainsbury Priv. Lab.") dobj <- dirichlet(cat.pen, cat.buyrate, brand.share, brand.pen.obs, brand.name) print(dobj) # YOU WILL SEE THE FOLLOWING: # Number of Brands in the Category = 8 # Brand List : Colgate DC : Macleans : Close Up : Signal : ultrabrite : Gibbs SR : Boots Priv. Label : Sainsbury Priv. Lab. # Brands' Market Shares: 0.25 0.19 0.1 0.1 0.09 0.08 0.03 0.02 # Brands' Penetration: 0.2 0.17 0.09 0.08 0.08 0.07 0.03 0.02 # Multiple of Base Time Period: 1 , Current M = 1.456 # Channel Penetration = 0.56 , with Shopping Rate = 2.6 # Estimated Dirichlet Model Parameters: # NBD: M = 1.46 , K = 0.78 ; Dirichlet: S = 1.55