11_08 - > coldex <-

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
> coldex <- read.table("http://www.stat.uiuc.edu/~stepanov/coldex.csv", header=T, sep=",") > coldex Time Sales 1 1 3394 2 2 4010 3 3 924 4 4 205 5 5 293 6 6 1130 7 7 1116 8 8 4009 9 9 5692 10 10 3458 11 11 2849 12 12 3470 13 13 4568 14 14 3710 15 15 1175 16 16 999 17 17 986 18 18 1786 19 19 2253 20 20 5237 21 21 6679 22 22 4116 23 23 4109 24 24 5124 Several years ago, a major pharmaceutical company introduced a new cold medicine called Coldex. The data shows the monthly sales (in thousands of dollars) for years 2005 and 2006. Time 1 Jan 2005 2 Feb 2005 . . . 24 Dec 2006 > attach(coldex) > v1 <- c(1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0) > v2 <- c(0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0) > v3 <- c(0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0) > v4 <- c(0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0) > v5 <- c(0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0) > v6 <- c(0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0) > v7 <- c(0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0) > v8 <- c(0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0) > v9 <- c(0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0)
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 4

11_08 - &gt; coldex &lt;-

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online