42 lines
795 B
Matlab
42 lines
795 B
Matlab
|
% Copyright (C) 2001 Michel Juillard
|
||
|
|
%
|
||
|
|
function dcompare(s1)
|
||
|
|
|
||
|
|
global options_ nvx nvy x y lag1
|
||
|
|
|
||
|
|
ftest(s1,0) ;
|
||
|
|
|
||
|
|
i = [lag1(1):size(x,2)-lag1(2)+1]' ;
|
||
|
|
|
||
|
|
if size(options_.smpl,1) == 1
|
||
|
|
error(['DSAMPLE not specified.']) ;
|
||
|
|
end
|
||
|
|
|
||
|
|
if options_.smpl(3) > 0
|
||
|
|
if options_.smpl(3) == 2
|
||
|
|
if options_.smpl(1)<0 | options_.smpl(2)>size(x,2)-lag1(2)
|
||
|
|
error ('Wrong sample.') ;
|
||
|
|
end
|
||
|
|
i = [options_.smpl(1)+lag1(1):options_.smpl(2)+lag1(1)]' ;
|
||
|
|
elseif options_.smpl(3) == 1
|
||
|
|
if options_.smpl(1)>size(x,2)-lag1(2)
|
||
|
|
error ('Wrong sample.') ;
|
||
|
|
end
|
||
|
|
i = [lag1(1):options_.smpl(1)+lag1(1)]' ;
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
j = bseastr(nvx,nvy) ;
|
||
|
|
|
||
|
|
if stop
|
||
|
|
return ;
|
||
|
|
end
|
||
|
|
|
||
|
|
z = mean(mean(abs(x(j,i)-y(j,i)))) ;
|
||
|
|
|
||
|
|
disp (['The mean absolute difference between set ' s1(1,:) 'and set ' s1(2,:)]) ;
|
||
|
|
disp (['is : ' num2str(z)]) ;
|
||
|
|
return ;
|
||
|
|
|
||
|
|
|