From 475ab94e1e2210d7f2e49cf42a1dfc7959bbebd3 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 17 Jul 2015 14:44:20 +0200 Subject: QR type --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'packages/tests/src/Numeric') diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs index 30480d7..ecda6c1 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -500,10 +500,10 @@ sliceTest = utest "slice test" $ and , testSlice (test_qrgr 4 tau2) qrr2 ] where - (qrr1,tau1) = qrRaw (rec :: Matrix R) - (qrr2,tau2) = qrRaw (rec :: Matrix C) + QR qrr1 tau1 = qrRaw (rec :: Matrix R) + QR qrr2 tau2 = qrRaw (rec :: Matrix C) - test_qrgr n t x = qrgr n (x,t) + test_qrgr n t x = qrgr n (QR x t) ok_qrgr x = simeq 1E-15 q q' where -- cgit v1.2.3