Fixed unit test.

src/@dseries/nanstd.m

@@ -8,7 +8,7 @@ function s = nanstd(o, geometric) % --*-- Unitary tests --*--
 % - geometric     logical [default is false], if true returns the geometric mean.
 %
 % OUTPUTS
-% - m             1*vobs(o) vector of doubles.
+% - s             1*vobs(o) vector of doubles.
 
 % Copyright © 2020 Dynare Team
 %
@@ -49,7 +49,7 @@ end
 return
 %@test:1
 % Define a dataset.
-A = randn(10000000,2);
+A = randn(1000000,2);
 A(3,1) = NaN;
 A(5,2) = NaN;
 
@@ -63,8 +63,8 @@ catch
 end
 
 if t(1)
-   t(2) = dassert(isequal(size(m),[1, 2]), true);
-   t(3) = all(abs(s-ones(1, 2))<1e-2);
+   t(2) = dassert(isequal(size(s),[1, 2]), true);
+   t(3) = all(abs(s-ones(1, 2))<1e-3);
 end
 T = all(t);
 %@eof:1
\ No newline at end of file