diff --git a/matlab/@dynDate/colon.m b/matlab/@dynDate/colon.m index cb499d8a52369dacdfd0347f314505260285a389..69742ea1533de6b78b25649b77c26e00215e34d8 100644 --- a/matlab/@dynDate/colon.m +++ b/matlab/@dynDate/colon.m @@ -31,7 +31,6 @@ function sp = colon(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -48,6 +47,8 @@ function sp = colon(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if nargin~=2 error('dynTime::colon: I need exactly two input arguments!') end diff --git a/matlab/@dynDate/dynDate.m b/matlab/@dynDate/dynDate.m index 524bcaa6a73f532dea985544fb61b2702710f499..25e8dc3b378b152a993f2901bb651f4af23d7214 100644 --- a/matlab/@dynDate/dynDate.m +++ b/matlab/@dynDate/dynDate.m @@ -44,7 +44,6 @@ function date = dynDate(a) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -61,6 +60,8 @@ function date = dynDate(a) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + date = struct; date.freq = NaN; diff --git a/matlab/@dynDate/eq.m b/matlab/@dynDate/eq.m index e699b176199a7c5c0139cc4d9df38a9d1f28a019..186dd0b7f3cc3106ddcf0d7bbad207d954803d6f 100644 --- a/matlab/@dynDate/eq.m +++ b/matlab/@dynDate/eq.m @@ -30,7 +30,6 @@ function c = eq(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function c = eq(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + verbose = 0; if nargin~=2 diff --git a/matlab/@dynDate/format.m b/matlab/@dynDate/format.m index d308a6f0e22ed6c810fd6fbdefd8fca4bba2c0f6..494dfda8d0e5f312bc017a7ff109b6f975d93c01 100644 --- a/matlab/@dynDate/format.m +++ b/matlab/@dynDate/format.m @@ -28,7 +28,6 @@ function p = format(date) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -45,6 +44,8 @@ function p = format(date) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if nargin~=1 error('dynDate::format: I need exactly one input argument!') diff --git a/matlab/@dynDate/ge.m b/matlab/@dynDate/ge.m index 7c2f8ab3ffce3e2887b4f245df3b34cd12a9b1cf..2be9bb485ebceab71a4c03be66515db6c94824fa 100644 --- a/matlab/@dynDate/ge.m +++ b/matlab/@dynDate/ge.m @@ -31,7 +31,6 @@ function c = ge(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -48,6 +47,8 @@ function c = ge(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if a>b c=1; else diff --git a/matlab/@dynDate/gt.m b/matlab/@dynDate/gt.m index 65b9ca4bc06cf7e554b12710caaa67b4e08f2e84..5d6ed5e722a53420bc04eba6910a669aef57306d 100644 --- a/matlab/@dynDate/gt.m +++ b/matlab/@dynDate/gt.m @@ -30,7 +30,6 @@ function c = gt(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function c = gt(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + verbose = 0; if nargin~=2 diff --git a/matlab/@dynDate/le.m b/matlab/@dynDate/le.m index 8d778453510461d7c91da275fcec9fc779d0f9bc..6fd1026c4834d7ad8f1a47766e2b73891dc0d433 100644 --- a/matlab/@dynDate/le.m +++ b/matlab/@dynDate/le.m @@ -31,7 +31,6 @@ function c = le(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -48,6 +47,8 @@ function c = le(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if a<b c=1; else diff --git a/matlab/@dynDate/lt.m b/matlab/@dynDate/lt.m index ebd0995ceb1a4c27c65270230d099ceec109a3a5..84aa329672d2e42b5043b630989500532886284c 100644 --- a/matlab/@dynDate/lt.m +++ b/matlab/@dynDate/lt.m @@ -30,7 +30,6 @@ function c = lt(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function c = lt(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + verbose = 0; if nargin~=2 diff --git a/matlab/@dynDate/max.m b/matlab/@dynDate/max.m index cab6b38bc0021f0b2e9b731f7523dda8ec004d76..74bcfb1b0224138b6e718f6a4219aa05aab034a1 100644 --- a/matlab/@dynDate/max.m +++ b/matlab/@dynDate/max.m @@ -30,7 +30,6 @@ function c = max(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function c = max(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + verbose = 0; if nargin~=2 diff --git a/matlab/@dynDate/min.m b/matlab/@dynDate/min.m index cb006327ac56436fd26c109cb29f7fda4fa8f62c..df51fb20170156e27aa64262552e58d924ebc64f 100644 --- a/matlab/@dynDate/min.m +++ b/matlab/@dynDate/min.m @@ -30,7 +30,6 @@ function c = min(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function c = min(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + verbose = 0; if nargin~=2 diff --git a/matlab/@dynDate/minus.m b/matlab/@dynDate/minus.m index fa3d1a9cffb8771aac337d3fd939ad48ba718fcc..a037f0aeea12e13838b3e70f63230298ed231023 100644 --- a/matlab/@dynDate/minus.m +++ b/matlab/@dynDate/minus.m @@ -32,7 +32,6 @@ function c = minus(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -49,6 +48,8 @@ function c = minus(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if ~( isa(a,'dynDate') && isa(b,'dynDate') ) error(['dynDate::minus: Input arguments ' inputname(1) ' and ' inputname(2) ' must be dynDate objects!']) end diff --git a/matlab/@dynDate/ne.m b/matlab/@dynDate/ne.m index d639ef3dc4ada67d9834578c69da250e5711e5dc..c00cc22839d20c77befb4ce14795d01dce18cfc0 100644 --- a/matlab/@dynDate/ne.m +++ b/matlab/@dynDate/ne.m @@ -30,7 +30,6 @@ function c = ne(a,b) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function c = ne(a,b) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + verbose = 0; if nargin~=2 diff --git a/matlab/@dynDate/subsref.m b/matlab/@dynDate/subsref.m index b57b7e7c1d02942cf648b20a32904f9b03ae75ec..4a951dfe02129649303c2a9ce6ec675a57bdbe2d 100644 --- a/matlab/@dynDate/subsref.m +++ b/matlab/@dynDate/subsref.m @@ -33,7 +33,6 @@ function B = subsref(A,S) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -50,4 +49,6 @@ function B = subsref(A,S) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + B = builtin('subsref', A, S); \ No newline at end of file diff --git a/matlab/@dynDate/uminus.m b/matlab/@dynDate/uminus.m index 7b66f3322c50a0ff4b47569ca792693684e1fe85..56d677a3919c8c35c1a79ee5385382a9ad22205a 100644 --- a/matlab/@dynDate/uminus.m +++ b/matlab/@dynDate/uminus.m @@ -30,7 +30,6 @@ function b = uminus(a) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function b = uminus(a) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if ~isa(a,'dynDate') error(['dynDate::uminus: Input argument ' inputname(1) ' must be a dynDate object.']) end diff --git a/matlab/@dynDate/uplus.m b/matlab/@dynDate/uplus.m index 14da6a503acf2596f53e4cb82af61866529d5928..11d2c955951b8d5195a1190b32f87e6b5d3cccf0 100644 --- a/matlab/@dynDate/uplus.m +++ b/matlab/@dynDate/uplus.m @@ -30,7 +30,6 @@ function b = uplus(a) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -47,6 +46,8 @@ function b = uplus(a) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if ~isa(a,'dynDate') error(['dynDate::uplus: Input argument ' inputname(1) ' must be a dynDate object.']) end diff --git a/matlab/@dynDates/subsref.m b/matlab/@dynDates/subsref.m index b5408de7766c7845c085a9ff8f488a0200ae14c4..e267e9af4342ce6d201e31bbf80ff9e2e921644e 100644 --- a/matlab/@dynDates/subsref.m +++ b/matlab/@dynDates/subsref.m @@ -33,7 +33,6 @@ function B = subsref(A,S) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -50,6 +49,8 @@ function B = subsref(A,S) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + B = builtin('subsref', A, S); if isequal(S(1).type,'.') diff --git a/matlab/@dynSeries/horzcat.m b/matlab/@dynSeries/horzcat.m index 1748e18f0c39eeeceb88568f00b2c65cfe424d3b..3adeec1e9a6ce8f9b0e71ca3a76496c0d9339e70 100644 --- a/matlab/@dynSeries/horzcat.m +++ b/matlab/@dynSeries/horzcat.m @@ -40,7 +40,6 @@ function a = horzcat(varargin) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -57,6 +56,8 @@ function a = horzcat(varargin) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if nargin==0 || nargin==1 error('dynSeries::horzcat: I need at least two input arguments!') end diff --git a/matlab/@dynTime/dynTime.m b/matlab/@dynTime/dynTime.m index 3d885db78a30ba23e02cdb81a14d75f4ff750734..021ac93fecb66a79f8803bb32480b1b4ebc89d40 100644 --- a/matlab/@dynTime/dynTime.m +++ b/matlab/@dynTime/dynTime.m @@ -42,7 +42,6 @@ function sp = dynTime(a) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -59,6 +58,8 @@ function sp = dynTime(a) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + sp = struct; sp.freq = []; diff --git a/matlab/cartesian_product_of_sets.m b/matlab/cartesian_product_of_sets.m index 1368f8e2855f762ec0a9f977fbeb1e5ecd0addff..8781a7e6043b9c1fbab5194d4e4eb960984d736b 100644 --- a/matlab/cartesian_product_of_sets.m +++ b/matlab/cartesian_product_of_sets.m @@ -32,7 +32,6 @@ function cprod = cartesian_product_of_sets(varargin) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -49,6 +48,8 @@ function cprod = cartesian_product_of_sets(varargin) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + [ F{1:nargin} ] = ndgrid( varargin{:} ); for i=1:nargin diff --git a/matlab/gauss_hermite_weights_and_nodes.m b/matlab/gauss_hermite_weights_and_nodes.m index 5946ac25e561ded14884bcc64778b652223309f1..40287cb71583432d8b1ed4fe88fd2dad64e6042b 100644 --- a/matlab/gauss_hermite_weights_and_nodes.m +++ b/matlab/gauss_hermite_weights_and_nodes.m @@ -32,7 +32,6 @@ function [nodes,weights] = gauss_hermite_weights_and_nodes(n) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -49,6 +48,8 @@ function [nodes,weights] = gauss_hermite_weights_and_nodes(n) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + b = sqrt([1:n-1]/2); JacobiMatrix = diag(b,1)+diag(b,-1); [JacobiEigenVectors,JacobiEigenValues] = eig(JacobiMatrix); diff --git a/matlab/kronecker/A_times_B_kronecker_C.m b/matlab/kronecker/A_times_B_kronecker_C.m index dad073c346fb40c0856f5074f852e272c8253f18..e46306f0fa407f04d49828d9d3b8691af350ee21 100644 --- a/matlab/kronecker/A_times_B_kronecker_C.m +++ b/matlab/kronecker/A_times_B_kronecker_C.m @@ -44,7 +44,6 @@ function [D, err] = A_times_B_kronecker_C(A,B,C,fake) %@eod: % Copyright (C) 1996-2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -61,6 +60,8 @@ function [D, err] = A_times_B_kronecker_C(A,B,C,fake) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + % Chek number of inputs and outputs. if nargin>4 || nargin<3 error('A_times_B_kronecker_C takes 3 or 4 input arguments and provides 2 output arguments.') diff --git a/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m b/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m index fffe80646289bb106bd0ae302030bd7efe26d0ff..09be1b7f9413e777c16a60ffdc637eb45585e0bb 100644 --- a/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m +++ b/matlab/kronecker/sparse_hessian_times_B_kronecker_C.m @@ -46,7 +46,6 @@ function [D, err] = sparse_hessian_times_B_kronecker_C(varargin) %@eod: % Copyright (C) 1996-2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -63,6 +62,8 @@ function [D, err] = sparse_hessian_times_B_kronecker_C(varargin) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + A = varargin{1}; B = varargin{2}; C = varargin{3}; diff --git a/matlab/utilities/dataset/compute_acov.m b/matlab/utilities/dataset/compute_acov.m index 8e3bec34821966a081c3263fd795ea2f8e1275e8..a67f24e4836c16ade836d6a919e021552d9bb42f 100644 --- a/matlab/utilities/dataset/compute_acov.m +++ b/matlab/utilities/dataset/compute_acov.m @@ -37,7 +37,6 @@ function dataset_ = compute_acov(dataset_) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -54,6 +53,8 @@ function dataset_ = compute_acov(dataset_) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if ~isfield(dataset_.descriptive,'cova') dataset_ = compute_cova(dataset_); end diff --git a/matlab/utilities/dataset/compute_corr.m b/matlab/utilities/dataset/compute_corr.m index 3d56adb3bcd5235231817fb5fb20d98144f04498..d4a81dc07b29ca91f4e3f3f81821af7feb27ba10 100644 --- a/matlab/utilities/dataset/compute_corr.m +++ b/matlab/utilities/dataset/compute_corr.m @@ -34,7 +34,6 @@ function dataset_ = compute_corr(dataset_) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -51,6 +50,8 @@ function dataset_ = compute_corr(dataset_) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if ~isfield(dataset_.descriptive,'cova') dataset_ = compute_cova(dataset_); end diff --git a/matlab/utilities/dataset/compute_cova.m b/matlab/utilities/dataset/compute_cova.m index 12e5cb18abb09b53866090ad7a1b398e57967052..cde46848f50428b99bb65612192b653c30700bdc 100644 --- a/matlab/utilities/dataset/compute_cova.m +++ b/matlab/utilities/dataset/compute_cova.m @@ -31,7 +31,6 @@ function dataset_ = compute_cova(dataset_) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -48,6 +47,8 @@ function dataset_ = compute_cova(dataset_) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + dataset_.descriptive.cova = zeros(dataset_.nvobs); data = transpose(dataset_.data); diff --git a/matlab/utilities/dataset/compute_stdv.m b/matlab/utilities/dataset/compute_stdv.m index 2111e005626cd5e0e9596088a306efa8a584df2f..2ddbbfc012f7dc849fdefd154149b0de37acfef2 100644 --- a/matlab/utilities/dataset/compute_stdv.m +++ b/matlab/utilities/dataset/compute_stdv.m @@ -31,7 +31,6 @@ function dataset_ = compute_stdv(dataset_) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -48,6 +47,8 @@ function dataset_ = compute_stdv(dataset_) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if dataset_.missing.state dataset_.descriptive.stdv = sqrt(nanmean(bsxfun(@power,nandemean(transpose(dataset_.data)),2))); else diff --git a/matlab/utilities/dataset/describe_missing_data.m b/matlab/utilities/dataset/describe_missing_data.m index b1fbb2c9ff3385acf124187799bc60eed3359694..421e64d831fb4d710698d31052bea99b7e118169 100644 --- a/matlab/utilities/dataset/describe_missing_data.m +++ b/matlab/utilities/dataset/describe_missing_data.m @@ -28,7 +28,6 @@ function [i,n,s,j] = describe_missing_data(data) %@eod: % Copyright (C) 2008-2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -45,6 +44,8 @@ function [i,n,s,j] = describe_missing_data(data) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + [observation_index,variable_index] = find(~isnan(data)); [T,N] = size(data); diff --git a/matlab/utilities/dataset/descriptive_statistics.m b/matlab/utilities/dataset/descriptive_statistics.m index 06afbdf4091ba3f8a3a494ffdf956637d7276c53..35981246e7819329cf56ce1257dc525ebb8594f5 100644 --- a/matlab/utilities/dataset/descriptive_statistics.m +++ b/matlab/utilities/dataset/descriptive_statistics.m @@ -46,7 +46,6 @@ function dataset_ = descriptive_statistics(dataset_,statistic,varagin) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -63,6 +62,8 @@ function dataset_ = descriptive_statistics(dataset_,statistic,varagin) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if strcmpi(statistic,'stdv') dataset_ = compute_std(dataset_) diff --git a/matlab/utilities/dataset/initialize_dataset.m b/matlab/utilities/dataset/initialize_dataset.m index a860cae7ef6c18a7b786ba4c08f6ac51d3e98f93..b69d5b4ac6680ee3ac1689394e26e2d31d9e3131 100644 --- a/matlab/utilities/dataset/initialize_dataset.m +++ b/matlab/utilities/dataset/initialize_dataset.m @@ -2,7 +2,6 @@ function dataset_ = initialize_dataset(datafile,varobs,first,nobs,transformation % Initializes a structure describing the dataset. % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -19,6 +18,8 @@ function dataset_ = initialize_dataset(datafile,varobs,first,nobs,transformation % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if isempty(datafile) error('Estimation:: You have to declare a dataset file!') end diff --git a/matlab/utilities/doc/dynInfo.m b/matlab/utilities/doc/dynInfo.m index 61fa9021beaf871e1477557dd063820cec5b381e..c52e8efcecc1da500b678475b8f1367fb0c0d475 100644 --- a/matlab/utilities/doc/dynInfo.m +++ b/matlab/utilities/doc/dynInfo.m @@ -32,7 +32,6 @@ function dynInfo(fun) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -49,6 +48,8 @@ function dynInfo(fun) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if isempty(strfind(fun,'@')) & (~isempty(strfind(fun,'/')) || ~isempty(strfind(fun,'\')) ) [pathstr1, name, ext] = fileparts(fun); addpath(pathstr1); diff --git a/matlab/utilities/doc/get_internal_doc_block.m b/matlab/utilities/doc/get_internal_doc_block.m index 65303de6e96fa233712993b9db40e8e3bf763c41..d965500feb1ecc3e5b44c2324cc5295052b9aae8 100644 --- a/matlab/utilities/doc/get_internal_doc_block.m +++ b/matlab/utilities/doc/get_internal_doc_block.m @@ -2,7 +2,6 @@ function block = get_internal_doc_block(fname,fpath) % Extract doc sections from matlab's routine. % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -19,6 +18,8 @@ function block = get_internal_doc_block(fname,fpath) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + % Default output block = []; diff --git a/matlab/utilities/general/demean.m b/matlab/utilities/general/demean.m index cfa386f5f93d74d038ed787f956d6aa94c7c1cef..332ab100d384ea43faef525d9ce3b13b7596bddf 100644 --- a/matlab/utilities/general/demean.m +++ b/matlab/utilities/general/demean.m @@ -28,7 +28,6 @@ function c = demean(x) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT ens DOT fr % % This file is part of Dynare. % @@ -44,6 +43,8 @@ function c = demean(x) % % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. + +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr if ndim(x)==1 c = x-mean(x); diff --git a/matlab/utilities/general/ndim.m b/matlab/utilities/general/ndim.m index 836d217bf7680397ec56d4a6b5f37f5c351f519c..f9e2c80df3400cf3009a7e18b9074e1d3c3beabc 100644 --- a/matlab/utilities/general/ndim.m +++ b/matlab/utilities/general/ndim.m @@ -28,7 +28,6 @@ function n = ndim(x) %@eod: % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT ens DOT fr % % This file is part of Dynare. % @@ -45,4 +44,6 @@ function n = ndim(x) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + n = sum(size(x)>1); \ No newline at end of file diff --git a/matlab/utilities/tests/dynTest.m b/matlab/utilities/tests/dynTest.m index bf59e5b55206cc061df8b209e2bbb1d201ff713d..8dd2fc01702e49e273092db3c782a11ea988f198 100644 --- a/matlab/utilities/tests/dynTest.m +++ b/matlab/utilities/tests/dynTest.m @@ -33,7 +33,6 @@ function dynTest(fun,dynare_path) %@eod: % Copyright (C) 2011-2012 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -50,6 +49,8 @@ function dynTest(fun,dynare_path) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + original_directory = pwd(); [pathstr1, name1, ext1] = fileparts(fun); diff --git a/matlab/utilities/tests/dyn_assert.m b/matlab/utilities/tests/dyn_assert.m index 7dd60e5f57f72c9d0c565701b2bde2d7122f6fc1..c6b01708186e60d0967ab7b267cec25fdb62fcda 100644 --- a/matlab/utilities/tests/dyn_assert.m +++ b/matlab/utilities/tests/dyn_assert.m @@ -2,7 +2,6 @@ function t = dyn_assert(A,B,tol) % This function tests the equality of two objects. % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -19,6 +18,8 @@ function t = dyn_assert(A,B,tol) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + if ( (nargin<3) || isempty(tol) ) use_isequal_matlab_builtin = 1; else diff --git a/matlab/utilities/tests/mtest.m b/matlab/utilities/tests/mtest.m index 1ff44e2eb8895d26df0439397a9f9277976af15a..1354deaedad2330847c89c173275169a1912cee9 100644 --- a/matlab/utilities/tests/mtest.m +++ b/matlab/utilities/tests/mtest.m @@ -2,7 +2,6 @@ function check = mtest(fname,fpath) % Extract test sections from matlab's routine executes the test and report errors. % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT univ DASH lemans DOT fr % % This file is part of Dynare. % @@ -19,6 +18,8 @@ function check = mtest(fname,fpath) % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + % Default answer (no problem). check = 1; diff --git a/tests/internals/tests.m b/tests/internals/tests.m index f755cbedf4e1533e0dce96cc255af3e2d2f93171..54b13987184b56a3ad37ebd121eb819f1e4ea7b0 100644 --- a/tests/internals/tests.m +++ b/tests/internals/tests.m @@ -1,7 +1,6 @@ % matlab script for testing matlab routines. % Copyright (C) 2011 Dynare Team -% stephane DOT adjemian AT ens DOT fr % % This file is part of Dynare. % @@ -18,6 +17,8 @@ % You should have received a copy of the GNU General Public License % along with Dynare. If not, see <http://www.gnu.org/licenses/>. +% Original author: stephane DOT adjemian AT univ DASH lemans DOT fr + list_of_routines = cell(1); list_of_routines(1,1) = {'../../matlab/@dynSeries'}; % path