128 lines
7.8 KiB
HTML
128 lines
7.8 KiB
HTML
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
|
||
|
"http://www.w3.org/TR/REC-html40/loose.dtd">
|
||
|
<html>
|
||
|
<head>
|
||
|
<title>Description of disp_moments</title>
|
||
|
<meta name="keywords" content="disp_moments">
|
||
|
<meta name="description" content="Copyright (C) 2001 Michel Juillard">
|
||
|
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
|
||
|
<meta name="generator" content="m2html © 2003 Guillaume Flandin">
|
||
|
<meta name="robots" content="index, follow">
|
||
|
<link type="text/css" rel="stylesheet" href="../m2html.css">
|
||
|
</head>
|
||
|
<body>
|
||
|
<a name="_top"></a>
|
||
|
<div><a href="../index.html">Home</a> > <a href="index.html">.</a> > disp_moments.m</div>
|
||
|
|
||
|
<!--<table width="100%"><tr><td align="left"><a href="../index.html"><img alt="<" border="0" src="../left.png"> Master index</a></td>
|
||
|
<td align="right"><a href="index.html">Index for . <img alt=">" border="0" src="../right.png"></a></td></tr></table>-->
|
||
|
|
||
|
<h1>disp_moments
|
||
|
</h1>
|
||
|
|
||
|
<h2><a name="_name"></a>PURPOSE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
|
||
|
<div class="box"><strong>Copyright (C) 2001 Michel Juillard</strong></div>
|
||
|
|
||
|
<h2><a name="_synopsis"></a>SYNOPSIS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
|
||
|
<div class="box"><strong>function disp_moments(y,var_list) </strong></div>
|
||
|
|
||
|
<h2><a name="_description"></a>DESCRIPTION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
|
||
|
<div class="fragment"><pre class="comment"> Copyright (C) 2001 Michel Juillard</pre></div>
|
||
|
|
||
|
<!-- crossreference -->
|
||
|
<h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
|
||
|
This function calls:
|
||
|
<ul style="list-style-image:url(../matlabicon.gif)">
|
||
|
<li><a href="set_default_option.html" class="code" title="function options=set_default_option(options,field,default)">set_default_option</a> </li><li><a href="table.html" class="code" title="function table(title,headers,labels,values,label_width,val_width,val_precis)">table</a> Copyright (C) 2002 Michel Juillard</li></ul>
|
||
|
This function is called by:
|
||
|
<ul style="list-style-image:url(../matlabicon.gif)">
|
||
|
<li><a href="olr.html" class="code" title="function olr(var_list,olr_inst,obj_var,W)">olr</a> Copyright (C) 2001 Michel Juillard</li><li><a href="osr.html" class="code" title="function osr(var_list,params,W)">osr</a> Copyright (C) 2001 Michel Juillard</li><li><a href="stoch_simul.html" class="code" title="function info=stoch_simul(var_list)">stoch_simul</a> Copyright (C) 2001 Michel Juillard</li></ul>
|
||
|
<!-- crossreference -->
|
||
|
|
||
|
|
||
|
<h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
|
||
|
<div class="fragment"><pre>0001 <span class="comment">% Copyright (C) 2001 Michel Juillard</span>
|
||
|
0002 <span class="comment">%</span>
|
||
|
0003 <a name="_sub0" href="#_subfunctions" class="code">function disp_moments(y,var_list)</a>
|
||
|
0004 <span class="keyword">global</span> M_ options_ oo_
|
||
|
0005
|
||
|
0006 warning off
|
||
|
0007 nvar = size(var_list,1);
|
||
|
0008 <span class="keyword">if</span> nvar == 0
|
||
|
0009 nvar = M_.endo_nbr;
|
||
|
0010 ivar = [1:nvar]';
|
||
|
0011 <span class="keyword">else</span>
|
||
|
0012 ivar=zeros(nvar,1);
|
||
|
0013 <span class="keyword">for</span> i=1:nvar
|
||
|
0014 i_tmp = strmatch(var_list(i,:),M_.endo_names,<span class="string">'exact'</span>);
|
||
|
0015 <span class="keyword">if</span> isempty(i_tmp)
|
||
|
0016 error ([<span class="string">'One of the variable specified does not exist'</span>]) ;
|
||
|
0017 <span class="keyword">else</span>
|
||
|
0018 ivar(i) = i_tmp;
|
||
|
0019 <span class="keyword">end</span>
|
||
|
0020 <span class="keyword">end</span>
|
||
|
0021 <span class="keyword">end</span>
|
||
|
0022 y = y(ivar,options_.drop+M_.maximum_lag+1:end)';
|
||
|
0023
|
||
|
0024 m = mean(y);
|
||
|
0025 y = y - repmat(m,size(y,1),1);
|
||
|
0026 s2 = mean(y.*y);
|
||
|
0027 s = sqrt(s2);
|
||
|
0028 oo_.mean = m;
|
||
|
0029 oo_.var = y'*y/size(y,1);
|
||
|
0030
|
||
|
0031 labels = deblank(M_.endo_names(ivar,:));
|
||
|
0032
|
||
|
0033 <span class="keyword">if</span> options_.nomoments == 0
|
||
|
0034 z = [ m' s' s2' (mean(y.^3)./s2.^1.5)' (mean(y.^4)./(s2.*s2)-3)' ];
|
||
|
0035
|
||
|
0036 title=<span class="string">'MOMENTS OF SIMULATED VARIABLES'</span>;
|
||
|
0037 <span class="keyword">if</span> options_.hp_filter > 1
|
||
|
0038 title = [title <span class="string">' (HP filter, lambda = '</span> <span class="keyword">...</span>
|
||
|
0039 int2str(options_.hp_filter) <span class="string">')'</span>];
|
||
|
0040 <span class="keyword">end</span>
|
||
|
0041 headers=strvcat(<span class="string">'VARIABLE'</span>,<span class="string">'MEAN'</span>,<span class="string">'STD. DEV.'</span>,<span class="string">'VARIANCE'</span>,<span class="string">'SKEWNESS'</span>, <span class="keyword">...</span>
|
||
|
0042 <span class="string">'KURTOSIS'</span>);
|
||
|
0043 <a href="table.html" class="code" title="function table(title,headers,labels,values,label_width,val_width,val_precis)">table</a>(title,headers,labels,z,size(labels,2)+2,16,6);
|
||
|
0044 <span class="keyword">end</span>
|
||
|
0045
|
||
|
0046 <span class="keyword">if</span> options_.nocorr == 0
|
||
|
0047 corr = (y'*y/size(y,1))./(s'*s);
|
||
|
0048 title = <span class="string">'CORRELATION OF SIMULATED VARIABLES'</span>;
|
||
|
0049 <span class="keyword">if</span> options_.hp_filter > 1
|
||
|
0050 title = [title <span class="string">' (HP filter, lambda = '</span> <span class="keyword">...</span>
|
||
|
0051 int2str(options_.hp_filter) <span class="string">')'</span>];
|
||
|
0052 <span class="keyword">end</span>
|
||
|
0053 headers = strvcat(<span class="string">'VARIABLE'</span>,M_.endo_names(ivar,:));
|
||
|
0054 <a href="table.html" class="code" title="function table(title,headers,labels,values,label_width,val_width,val_precis)">table</a>(title,headers,labels,corr,size(labels,2)+2,8,4);
|
||
|
0055 <span class="keyword">end</span>
|
||
|
0056
|
||
|
0057 ar = options_.ar;
|
||
|
0058 options_ = <a href="set_default_option.html" class="code" title="function options=set_default_option(options,field,default)">set_default_option</a>(options_,<span class="string">'ar'</span>,5);
|
||
|
0059 ar = options_.ar;
|
||
|
0060 <span class="keyword">if</span> ar > 0
|
||
|
0061 autocorr = [];
|
||
|
0062 <span class="keyword">for</span> i=1:ar
|
||
|
0063 oo_.autocorr{i} = y(ar+1:<span class="keyword">end</span>,:)'*y(ar+1-i:end-i,:)./((size(y,1)-ar)*s'*s);
|
||
|
0064 autocorr = [ autocorr diag(oo_.autocorr{i}) ];
|
||
|
0065 <span class="keyword">end</span>
|
||
|
0066 title = <span class="string">'AUTOCORRELATION OF SIMULATED VARIABLES'</span>;
|
||
|
0067 <span class="keyword">if</span> options_.hp_filter > 1
|
||
|
0068 title = [title <span class="string">' (HP filter, lambda = '</span> <span class="keyword">...</span>
|
||
|
0069 int2str(options_.hp_filter) <span class="string">')'</span>];
|
||
|
0070 <span class="keyword">end</span>
|
||
|
0071 headers = strvcat(<span class="string">'VARIABLE'</span>,int2str([1:ar]'));
|
||
|
0072 <a href="table.html" class="code" title="function table(title,headers,labels,values,label_width,val_width,val_precis)">table</a>(title,headers,labels,autocorr,size(labels,2)+2,8,4);
|
||
|
0073 <span class="keyword">end</span>
|
||
|
0074
|
||
|
0075 warning on
|
||
|
0076 <span class="comment">% 10/03/02 MJ corrected order std. dev var in printed report.</span>
|
||
|
0077 <span class="comment">% 01/02/03 MJ added correlation and autocorrelation</span>
|
||
|
0078 <span class="comment">% 01/19/03 MJ corrected variable name truncation</span>
|
||
|
0079 <span class="comment">% 02/18/03 MJ added subtitle for HP filter</span>
|
||
|
0080 <span class="comment">% 03/02/03 MJ added M_.maximum_lag to the number of entries of y</span>
|
||
|
0081 <span class="comment">% 04/28/03 MJ modified handling of options_</span>
|
||
|
0082 <span class="comment">% 06/23/03 MJ added warning off</span></pre></div>
|
||
|
<hr><address>Generated on Fri 16-Jun-2006 09:09:06 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/">m2html</a></strong> © 2003</address>
|
||
|
</body>
|
||
|
</html>
|