[Pkg-octave-commit] [octave-statistics] 05/05: d/p/tsquare-in-princomp-unit-tests.patch: New patch

[Rafael Laboissiere]

This is an automated email from the git hooks/post-receive script.

rafael pushed a commit to branch master
in repository octave-statistics.

commit e28d65a834036c6a0a0a4e751325cee948de97c6
Author: Rafael Laboissiere <rafael at debian.org>
Date:   Sun Sep 3 18:32:15 2017 -0300

    d/p/tsquare-in-princomp-unit-tests.patch: New patch
---
 debian/patches/series                              |  1 +
 .../patches/tsquare-in-princomp-unit-tests.patch   | 32 ++++++++++++++++++++++
 2 files changed, 33 insertions(+)

diff --git a/debian/patches/series b/debian/patches/series
index 5e37daa..5911bb0 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -2,3 +2,4 @@ data-files-for-tests.diff
 expose-tbl-delim-tests.patch
 pval-in-ttest-unit-test.patch
 xtests-in-grp2idx.patch
+tsquare-in-princomp-unit-tests.patch
diff --git a/debian/patches/tsquare-in-princomp-unit-tests.patch b/debian/patches/tsquare-in-princomp-unit-tests.patch
new file mode 100644
index 0000000..09fa7ce
--- /dev/null
+++ b/debian/patches/tsquare-in-princomp-unit-tests.patch
@@ -0,0 +1,32 @@
+Description: Fix expected values of tsquare in unit tests of function princomp
+Author: Rafael Laboissière <rafael at debian.org>
+Forwarded: https://savannah.gnu.org/bugs/index.php?51929
+Last-Update: 2017-09-03
+
+--- octave-statistics-1.3.0.orig/inst/princomp.m
++++ octave-statistics-1.3.0/inst/princomp.m
+@@ -150,7 +150,7 @@ endfunction
+ %!assert(COEFF,m(1:2,:),10*eps);
+ %!assert(SCORE,-m,10*eps);
+ %!assert(latent,[1.5;.5],10*eps);
+-%!assert(tsquare,[2;2;2],10*eps);
++%!assert(tsquare,[4;4;4]/3,10*eps);
+ 
+ %!test
+ %! x=x';
+@@ -164,7 +164,7 @@ endfunction
+ %!assert(SCORE(:,1),-m(1:2,1),10*eps);
+ %!assert(SCORE(:,2:3),zeros(2),10*eps);
+ %!assert(latent,[1;0;0],10*eps);
+-%!assert(tsquare,[1;1],10*eps)
++%!assert(tsquare,[0.5;0.5],10*eps)
+ 
+ %!test
+ %! [COEFF,SCORE,latent,tsquare] = princomp(x, "econ");
+@@ -172,5 +172,5 @@ endfunction
+ %!assert(COEFF,m(:, 1),10*eps);
+ %!assert(SCORE,-m(1:2,1),10*eps);
+ %!assert(latent,[1],10*eps);
+-%!assert(tsquare,[1;1],10*eps)
++%!assert(tsquare,[0.5;0.5],10*eps)
+ 

-- 
Alioth's /home/groups/pkg-octave/bin/git-commit-notice on /srv/git.debian.org/git/pkg-octave/octave-statistics.git