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

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