%Figure2  This program generates Figure 2 in
%
%           Taxes, Regulations, and the Value of US and UK Corporations,
%           by Ellen McGrattan and Ed Prescott
%

%         Ellen McGrattan 9-17-03

%
% Data to load:
%

load uk/value/equity.dat
load us/raw/nipa109a.dat;
load us/raw/ltab213d.dat;

%
% Years to load: Y0 through Y1
%

Y0  = 1960;
Y1  = 2001;

%
% Extract data:
%

nipa109a       = nipa109a(2:30,Y0-1928:Y1-1928)/1000;
ltab213a       = qtr2ann(ltab213d,1);
ltab213a       = ltab213a(Y0-1951:Y1-1951,2:21)'/1000;
gdpus          = nipa109a(1,:)';
equityuk       = equity(Y0-1956:Y1-1956,2);
equityus       = ltab213a(20,:)'./gdpus;

%
% Plot figure
%

plot(Y0:Y1,equityus,Y0:Y1,equityuk)
title('Value of Equities of Domestic Corporations: US and UK')
legend('US','UK',0)
axis([Y0,Y1,0,2.5])
