%FIGURE1  `Value of $1 invested in 1926'
%

%         Ellen McGrattan, 6-15-00

% Period for plot:

t0       = 1926;
t1       = 1999;


% Load data

load /usr/people/erm/work/equity/data/ibbotson/tablea1.dat
load /usr/people/erm/work/equity/data/ibbotson/tablea4.dat
load /usr/people/erm/work/equity/data/ibbotson/tablea6.dat
load /usr/people/erm/work/equity/data/ibbotson/tablea14.dat
load /usr/people/erm/work/equity/data/crsp/wrds/totmkt.dat

% Nominal series

t0       = t0-1925;
t1       = t1-1925;
mrlg     = tablea1(t0:t1,2:13)';  
mrsm     = tablea4(:,2:13)';     
mrgbl    = tablea6(:,2:13)';  
mrgbs    = tablea14(:,2:13)';  
mrvw     = zeros(12,74);
mrvw(:)  = totmkt(2:889,2);
mrvw     = mrvw(:,t0:t1);

crsm     = cumprod(1+mrsm(:));
crlg     = cumprod(1+mrlg(:));
crvw     = cumprod(1+mrvw(:));
crgbl    = cumprod(1+mrgbl(:));
crgbs    = cumprod(1+mrgbs(:));
t        = ptime(t0+1925.01,length(crsm),12);
semilogy(t,crsm,t,crlg,t,crvw,t,crgbl,t,crgbs)
set(gca,'YTick',10.^[-1,0,1,2,3,4],'YTickLabel',[0.1,1,10,100,1000,10000])
legend('Small-firm Stocks','S&P 500 Stocks','Value-weighted index', ...
       'U.S. Treasury Bonds','U.S. Treasury Bills')
title('The Value of $1 Invested in Different Assets, 1926-1999')
ylabel('Dollars')

