diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test index 6f75cbbf760c47b4b593b3fe3c7cfb2ce5573f51..51680273585a25c090c25ad83ccdb4573ea39b47 100644 --- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test +++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test @@ -802,7 +802,7 @@ $pivot Intercept -0.2236068 -0.6708204 X 0.0000000 0.4472136 -##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa3 +##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa3a #argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), FALSE); .Internal(La_rg(argv[[1]], argv[[2]])) $values [1] -21.22225+176.37775i -21.22225-176.37775i -11.74868+ 0.00000i @@ -823,6 +823,16 @@ $vectors [5,] 0.3297248-0.0460577i 0.3297248+0.0460577i +##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa3b +#argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), TRUE); .Internal(La_rg(argv[[1]], argv[[2]])) +$values +[1] -21.22225+176.37775i -21.22225-176.37775i -11.74868+ 0.00000i +[4] 61.09659+ 76.77943i 61.09659- 76.77943i + +$vectors +NULL + + ##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testLa4 #argv <- list('S', structure(c(1, 0, 0, 0, 0, 1.4142135623731, 0, 0, 0, 0, 1.73205080756888, 0, 0, 0, 0, 2), .Dim = c(4L, 4L), Dimnames = list(character(0), character(0))), c(2, 1.73205080756888, 1.4142135623731, 1), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]])) $d @@ -947,6 +957,18 @@ $vt [14,] 2.934442e-02 0.0499572846 -2.117797e-02 1.755687e-01 1.567252e-01 [15,] 1.370608e-03 0.0972526870 -4.824705e-02 1.567252e-01 2.687664e-01 +##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc +#{ .Internal(La_solve(structure(c(2,1)), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16)) } +Error: 'a' must be a numeric matrix + +##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc +#{ .Internal(La_solve(structure(c(2,1), .Dim = c(2,1)), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16)) } +Error: 'a' (2 x 1) must be square + +##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc +#{ .Internal(La_solve(structure(numeric(0), .Dim = c(0,0)), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16)) } +Error: 'a' is 0-diml + ##com.oracle.truffle.r.test.builtins.TestBuiltin_La.testMisc #{ x<-matrix(1:4, ncol=2); solve(x) } [,1] [,2] @@ -28189,6 +28211,14 @@ Error in eval(expr, envir, enclos) : object 'y' not found #{ log(c(0,1)) } [1] -Inf 0 +##com.oracle.truffle.r.test.builtins.TestBuiltin_log.testLog +#{ log(c(2,3), 0/0) } +[1] NaN NaN + +##com.oracle.truffle.r.test.builtins.TestBuiltin_log.testLog +#{ log(c(2,3), NA) } +[1] NA NA + ##com.oracle.truffle.r.test.builtins.TestBuiltin_log.testLog #{ round( log(10,), digits = 5 ) } [1] 2.30259