ch09data | R Documentation |
Financial time series used in examples in chapter 9.
data(m.fac9003)
data(m.cpice16.dp7503)
data(m.barra.9003)
data(m.5cln)
#data(m.bnd) <- documented with ch08, also used in ch09
data(m.apca0103)
a zoo object of 168 observations giving simple excess returns of 13 stocks and the Standard and Poor's 500 index over the monthly series of three-month Treasury bill rates of the secondary market as the risk-free rate from January 1990 to December 2003. (These numbers are used in Table 9.1.)
Alcoa
A. G. Edwards
Caterpillar
Ford Motor
FedEx
General Motors
Hewlett-Packard
Kimberly-Clark
Mellon Financial
New York Times
Proctor & Gamble
Chicago Tribune
Texas Instruments
Standard & Poor's 500 index
a zoo object of 168 monthly on two macroeconomic variables from January 1975 through December 2002 (p. 412):
consumer price index for all urban consumers: all items and with index 1982-1984 = 100
Civilian employment numbers 16 years and over: measured in thousands
a zoo object giving monthly excess returns of ten stocks from January 1990 through December 2003:
A. G. Edwards
Citigroup
Morgan Stanley
Merrill Lynch
Dell, Inc.
International Business Machines
Alcoa
Caterpillar
Proctor & Gamble
a zoo object giving monthly log returns in percentages of 5 stocks from January 1990 through December 1999:
International Business Machines
Hewlett-Packard
Intel
Merrill Lynch
Morgan Stanley Dean Witter
data.frame of monthly simple returns of 40 stocks from January 2001 through December 2003, discussed in sect. 9.6.2, pp. 437ff.
5-digit company identification code
the last workday of the month
in percent
https://faculty.chicagobooth.edu/ruey-s-tsay/teaching
Ruey Tsay (2005) Analysis of Financial Time Series, 2nd ed. (Wiley, ch. 7)
ch01data
,
ch02data
,
ch03data
,
ch04data
,
ch05data
,
ch06data
data(m.apca0103)
dim(m.apca0103)
# 1440 3; 1440 = 40*36
# Are the dates all the same?
sameDates <- rep(NA, 39)
for(i in 1:39)
sameDates[i] <- with(m.apca0103,
all.equal(date[1:36], date[(i*36)+1:36]))
stopifnot(all(sameDates))
M.apca0103 <- with(m.apca0103, array(return, dim = c(36, 40), dimnames =
list(NULL, paste("Co", CompanyID[seq(1, 1440, 36)], sep=""))))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.