Repository: incubator-systemml Updated Branches: refs/heads/master 65d019576 -> 05d2c0a80
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/unary/scalar/DFTest_T.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/unary/scalar/DFTest_T.R b/src/test/scripts/functions/unary/scalar/DFTest_T.R index f068f78..00e613b 100644 --- a/src/test/scripts/functions/unary/scalar/DFTest_T.R +++ b/src/test/scripts/functions/unary/scalar/DFTest_T.R @@ -19,19 +19,19 @@ # #------------------------------------------------------------- - - -args <- commandArgs(TRUE) -library(Matrix) - -qtle = qt(as.numeric(args[1]), df=as.numeric(args[2])); -p = pt(qtle, df=as.numeric(args[2])); -pl = pt(qtle, df=as.numeric(args[2]), lower.tail=F); - -out = matrix(0,nrow=3, ncol=1); -out[1,1] = qtle; -out[2,1] = p; -out[3,1] = pl; - -writeMM(as(out, "CsparseMatrix"), args[3]); - + + +args <- commandArgs(TRUE) +library(Matrix) + +qtle = qt(as.numeric(args[1]), df=as.numeric(args[2])); +p = pt(qtle, df=as.numeric(args[2])); +pl = pt(qtle, df=as.numeric(args[2]), lower.tail=F); + +out = matrix(0,nrow=3, ncol=1); +out[1,1] = qtle; +out[2,1] = p; +out[3,1] = pl; + +writeMM(as(out, "CsparseMatrix"), args[3]); +
