powered by
Data for Exercises 2.28, 9.19, and Example 2.8
Name
A data frame with 42 observations on the following 3 variables.
Brand
a factor with levels Band-Aid Barbie Birds Eye Budweiser Camel Campbell Carlsberg Coca-Cola Colgate Del Monte Fisher-Price Gordon's} \code{Green Giant} \code{Guinness} \code{Haagen-Dazs} \code{Heineken} \code{Heinz} \code{Hennessy} \code{Hermes} \code{Hershey} \code{Ivory} \code{Jell-o} \code{Johnnie Walker} \code{Kellogg} \code{Kleenex} \code{Kraft} \code{Louis Vuitton} \code{Marlboro} \code{Nescafe} \code{Nestle} \code{Nivea} \code{Oil of Olay} \code{Pampers} \code{Pepsi-Cola} \code{Planters} \code{Quaker} \code{Sara Lee} \code{Schweppes} \code{Smirnoff} \code{Tampax} \code{Winston} \code{Wrigley's
Band-Aid
Barbie
Birds Eye
Budweiser
Camel
Campbell
Carlsberg
Coca-Cola
Colgate
Del Monte
Fisher-Price
Gordon's} \code{Green Giant} \code{Guinness} \code{Haagen-Dazs} \code{Heineken} \code{Heinz} \code{Hennessy} \code{Hermes} \code{Hershey} \code{Ivory} \code{Jell-o} \code{Johnnie Walker} \code{Kellogg} \code{Kleenex} \code{Kraft} \code{Louis Vuitton} \code{Marlboro} \code{Nescafe} \code{Nestle} \code{Nivea} \code{Oil of Olay} \code{Pampers} \code{Pepsi-Cola} \code{Planters} \code{Quaker} \code{Sara Lee} \code{Schweppes} \code{Smirnoff} \code{Tampax} \code{Winston} \code{Wrigley's
value
a numeric vector
revenue
# NOT RUN { str(Name) attach(Name) plot(revenue,value) model <- lm(value~revenue) abline(model) cor(value,revenue) summary(model) detach(Name) remove(model) # }
Run the code above in your browser using DataLab