function mr = ARMA(p,q)
%              VEKTOR RADU MODELU TYPU ARMA(p,q)
%     (suitable for NAG Foundation toolbox gateway routines 'NAGxxxxx')
% VOLANI: mr = ARMA(p,q)
% VSTUP:
% p ... rad AR casti modelu (p>=0, cele cislo)
% q ... rad MA casti modelu (q>=0, cele cislo)
% Podminky korektnosti (nejsou kontrolovany): p,q>=0; p+q>0.
%
% VYSTUP:
% mr=[p,0,q,0,0,0,0] ...
%    ... vektor radu modelu ARMA(p,q)=SARIMA(p,0,q,0,0,0,0).

% (C) 1999, V. Vesely, Masaryk University of Brno (Czech Republic)
%
error(nargchk(2,2,nargin));
%
mr=[p,0,q,0,0,0,0];
