From 1238fb2071ff29aa77e267c5ad8620641cd432c9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Villemot?= Date: Thu, 31 Jan 2019 18:59:56 +0100 Subject: [PATCH] Remove duplicate test file Another version is already under tests/trend_var/ directory. --- tests/Makefile.am | 1 - tests/fs2000_nonstationary.mod | 94 ---------------------------------- 2 files changed, 95 deletions(-) delete mode 100644 tests/fs2000_nonstationary.mod diff --git a/tests/Makefile.am b/tests/Makefile.am index 509ee6e0f..ca4c30634 100644 --- a/tests/Makefile.am +++ b/tests/Makefile.am @@ -104,7 +104,6 @@ MODFILES = \ ramst_vec.mod \ example1_varexo_det.mod \ predetermined_variables.mod \ - fs2000_nonstationary.mod \ fs2000_ssfile.mod \ comments.mod \ histval_sto.mod \ diff --git a/tests/fs2000_nonstationary.mod b/tests/fs2000_nonstationary.mod deleted file mode 100644 index e26afed2c..000000000 --- a/tests/fs2000_nonstationary.mod +++ /dev/null @@ -1,94 +0,0 @@ -/* - * This file is a modified version of 'fs2000.mod'. - * - * The difference is that, here, the equations are written in non-stationary form, - * and Dynare automatically does the detrending. - * - * Also note that "m" and "dA" in 'fs2000.mod' are here called "gM" and "gA" - */ - -/* - * Copyright (C) 2004-2011 Dynare Team - * - * This file is part of Dynare. - * - * Dynare is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Dynare is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Dynare. If not, see . - */ - -var gM gA; -trend_var(growth_factor=gA) A; -trend_var(growth_factor=gM) M; -var(deflator=A) k c y; -var(deflator=M(-1)/A) P; -var(deflator=M(-1)) W l d; -var R n; -varexo e_a e_m; - -parameters alp bet gam mst rho psi del; - -alp = 0.33; -bet = 0.99; -gam = 0.003; -mst = 1.011; -rho = 0.7; -psi = 0.787; -del = 0.02; - -model; -gA = exp(gam+e_a); -log(gM) = (1-rho)*log(mst) + rho*log(gM(-1))+e_m; -c+k = k(-1)^alp*(A*n)^(1-alp)+(1-del)*k(-1); -P*c = M; -P/(c(+1)*P(+1))=bet*P(+1)*(alp*k^(alp-1)*(A(+1)*n(+1))^(1-alp)+(1-del))/(c(+2)*P(+2)); -(psi/(1-psi))*(c*P/(1-n))=W; -R = P*(1-alp)*k(-1)^alp*A^(1-alp)*n^(-alp)/W; -W = l/n; -M-M(-1)+d = l; -1/(c*P)=bet*R/(c(+1)*P(+1)); -y = k(-1)^alp*(A*n)^(1-alp); -end; - -steady_state_model; - gA = exp(gam); - gst = 1/gA; - gM = mst; - khst = ( (1-gst*bet*(1-del)) / (alp*gst^alp*bet) )^(1/(alp-1)); - xist = ( ((khst*gst)^alp - (1-gst*(1-del))*khst)/mst )^(-1); - nust = psi*mst^2/( (1-alp)*(1-psi)*bet*gst^alp*khst^alp ); - n = xist/(nust+xist); - P = xist + nust; - k = khst*n; - - l = psi*mst*n/( (1-psi)*(1-n) ); - c = mst/P; - d = l - mst + 1; - y = k^alp*n^(1-alp)*gst^alp; - R = mst/bet; - W = l/n; - ist = y-c; - q = 1 - d; - - e = 1; -end; - -shocks; -var e_a; stderr 0.014; -var e_m; stderr 0.005; -end; - -steady; - -check; - -stoch_simul;