You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@systemml.apache.org by du...@apache.org on 2016/01/26 02:12:26 UTC
[02/55] [partial] incubator-systemml git commit: [SYSTEMML-482]
[SYSTEMML-480] Adding a Git attributes file to enfore Unix-styled line
endings, and normalizing all of the line endings.
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/transform/input/iris/iris.csv
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/transform/input/iris/iris.csv b/src/test/scripts/functions/transform/input/iris/iris.csv
index 9bfbda9..11b46be 100644
--- a/src/test/scripts/functions/transform/input/iris/iris.csv
+++ b/src/test/scripts/functions/transform/input/iris/iris.csv
@@ -1,151 +1,151 @@
-ID,Sepal.Length,Sepal.Width,Petal.Length,Petal.Width,Species
-1,5.1,3.5,1.4,0.2,setosa
-2,4.9,3,1.4,0.2,setosa
-3,4.7,3.2,1.3,0.2,setosa
-4,4.6,3.1,1.5,0.2,setosa
-5,5,3.6,1.4,0.2,setosa
-6,5.4,3.9,1.7,0.4,setosa
-7,4.6,3.4,1.4,0.3,setosa
-8,5,3.4,1.5,0.2,setosa
-9,4.4,2.9,1.4,0.2,setosa
-10,4.9,3.1,1.5,0.1,setosa
-11,5.4,3.7,1.5,0.2,setosa
-12,4.8,3.4,1.6,0.2,setosa
-13,4.8,3,1.4,0.1,setosa
-14,4.3,3,1.1,0.1,setosa
-15,5.8,4,1.2,0.2,setosa
-16,5.7,4.4,1.5,0.4,setosa
-17,5.4,3.9,1.3,0.4,setosa
-18,5.1,3.5,1.4,0.3,setosa
-19,5.7,3.8,1.7,0.3,setosa
-20,5.1,3.8,1.5,0.3,setosa
-21,5.4,3.4,1.7,0.2,setosa
-22,5.1,3.7,1.5,0.4,setosa
-23,4.6,3.6,1,0.2,setosa
-24,5.1,3.3,1.7,0.5,setosa
-25,4.8,3.4,1.9,0.2,setosa
-26,5,3,1.6,0.2,setosa
-27,5,3.4,1.6,0.4,setosa
-28,5.2,3.5,1.5,0.2,setosa
-29,5.2,3.4,1.4,0.2,setosa
-30,4.7,3.2,1.6,0.2,setosa
-31,4.8,3.1,1.6,0.2,setosa
-32,5.4,3.4,1.5,0.4,setosa
-33,5.2,4.1,1.5,0.1,setosa
-34,5.5,4.2,1.4,0.2,setosa
-35,4.9,3.1,1.5,0.2,setosa
-36,5,3.2,1.2,0.2,setosa
-37,5.5,3.5,1.3,0.2,setosa
-38,4.9,3.6,1.4,0.1,setosa
-39,4.4,3,1.3,0.2,setosa
-40,5.1,3.4,1.5,0.2,setosa
-41,5,3.5,1.3,0.3,setosa
-42,4.5,2.3,1.3,0.3,setosa
-43,4.4,3.2,1.3,0.2,setosa
-44,5,3.5,1.6,0.6,setosa
-45,5.1,3.8,1.9,0.4,setosa
-46,4.8,3,1.4,0.3,setosa
-47,5.1,3.8,1.6,0.2,setosa
-48,4.6,3.2,1.4,0.2,setosa
-49,5.3,3.7,1.5,0.2,setosa
-50,5,3.3,1.4,0.2,setosa
-51,7,3.2,4.7,1.4,versicolor
-52,6.4,3.2,4.5,1.5,versicolor
-53,6.9,3.1,4.9,1.5,versicolor
-54,5.5,2.3,4,1.3,versicolor
-55,6.5,2.8,4.6,1.5,versicolor
-56,5.7,2.8,4.5,1.3,versicolor
-57,6.3,3.3,4.7,1.6,versicolor
-58,4.9,2.4,3.3,1,versicolor
-59,6.6,2.9,4.6,1.3,versicolor
-60,5.2,2.7,3.9,1.4,versicolor
-61,5,2,3.5,1,versicolor
-62,5.9,3,4.2,1.5,versicolor
-63,6,2.2,4,1,versicolor
-64,6.1,2.9,4.7,1.4,versicolor
-65,5.6,2.9,3.6,1.3,versicolor
-66,6.7,3.1,4.4,1.4,versicolor
-67,5.6,3,4.5,1.5,versicolor
-68,5.8,2.7,4.1,1,versicolor
-69,6.2,2.2,4.5,1.5,versicolor
-70,5.6,2.5,3.9,1.1,versicolor
-71,5.9,3.2,4.8,1.8,versicolor
-72,6.1,2.8,4,1.3,versicolor
-73,6.3,2.5,4.9,1.5,versicolor
-74,6.1,2.8,4.7,1.2,versicolor
-75,6.4,2.9,4.3,1.3,versicolor
-76,6.6,3,4.4,1.4,versicolor
-77,6.8,2.8,4.8,1.4,versicolor
-78,6.7,3,5,1.7,versicolor
-79,6,2.9,4.5,1.5,versicolor
-80,5.7,2.6,3.5,1,versicolor
-81,5.5,2.4,3.8,1.1,versicolor
-82,5.5,2.4,3.7,1,versicolor
-83,5.8,2.7,3.9,1.2,versicolor
-84,6,2.7,5.1,1.6,versicolor
-85,5.4,3,4.5,1.5,versicolor
-86,6,3.4,4.5,1.6,versicolor
-87,6.7,3.1,4.7,1.5,versicolor
-88,6.3,2.3,4.4,1.3,versicolor
-89,5.6,3,4.1,1.3,versicolor
-90,5.5,2.5,4,1.3,versicolor
-91,5.5,2.6,4.4,1.2,versicolor
-92,6.1,3,4.6,1.4,versicolor
-93,5.8,2.6,4,1.2,versicolor
-94,5,2.3,3.3,1,versicolor
-95,5.6,2.7,4.2,1.3,versicolor
-96,5.7,3,4.2,1.2,versicolor
-97,5.7,2.9,4.2,1.3,versicolor
-98,6.2,2.9,4.3,1.3,versicolor
-99,5.1,2.5,3,1.1,versicolor
-100,5.7,2.8,4.1,1.3,versicolor
-101,6.3,3.3,6,2.5,virginica
-102,5.8,2.7,5.1,1.9,virginica
-103,7.1,3,5.9,2.1,virginica
-104,6.3,2.9,5.6,1.8,virginica
-105,6.5,3,5.8,2.2,virginica
-106,7.6,3,6.6,2.1,virginica
-107,4.9,2.5,4.5,1.7,virginica
-108,7.3,2.9,6.3,1.8,virginica
-109,6.7,2.5,5.8,1.8,virginica
-110,7.2,3.6,6.1,2.5,virginica
-111,6.5,3.2,5.1,2,virginica
-112,6.4,2.7,5.3,1.9,virginica
-113,6.8,3,5.5,2.1,virginica
-114,5.7,2.5,5,2,virginica
-115,5.8,2.8,5.1,2.4,virginica
-116,6.4,3.2,5.3,2.3,virginica
-117,6.5,3,5.5,1.8,virginica
-118,7.7,3.8,6.7,2.2,virginica
-119,7.7,2.6,6.9,2.3,virginica
-120,6,2.2,5,1.5,virginica
-121,6.9,3.2,5.7,2.3,virginica
-122,5.6,2.8,4.9,2,virginica
-123,7.7,2.8,6.7,2,virginica
-124,6.3,2.7,4.9,1.8,virginica
-125,6.7,3.3,5.7,2.1,virginica
-126,7.2,3.2,6,1.8,virginica
-127,6.2,2.8,4.8,1.8,virginica
-128,6.1,3,4.9,1.8,virginica
-129,6.4,2.8,5.6,2.1,virginica
-130,7.2,3,5.8,1.6,virginica
-131,7.4,2.8,6.1,1.9,virginica
-132,7.9,3.8,6.4,2,virginica
-133,6.4,2.8,5.6,2.2,virginica
-134,6.3,2.8,5.1,1.5,virginica
-135,6.1,2.6,5.6,1.4,virginica
-136,7.7,3,6.1,2.3,virginica
-137,6.3,3.4,5.6,2.4,virginica
-138,6.4,3.1,5.5,1.8,virginica
-139,6,3,4.8,1.8,virginica
-140,6.9,3.1,5.4,2.1,virginica
-141,6.7,3.1,5.6,2.4,virginica
-142,6.9,3.1,5.1,2.3,virginica
-143,5.8,2.7,5.1,1.9,virginica
-144,6.8,3.2,5.9,2.3,virginica
-145,6.7,3.3,5.7,2.5,virginica
-146,6.7,3,5.2,2.3,virginica
-147,6.3,2.5,5,1.9,virginica
-148,6.5,3,5.2,2,virginica
-149,6.2,3.4,5.4,2.3,virginica
-150,5.9,3,5.1,1.8,virginica
+ID,Sepal.Length,Sepal.Width,Petal.Length,Petal.Width,Species
+1,5.1,3.5,1.4,0.2,setosa
+2,4.9,3,1.4,0.2,setosa
+3,4.7,3.2,1.3,0.2,setosa
+4,4.6,3.1,1.5,0.2,setosa
+5,5,3.6,1.4,0.2,setosa
+6,5.4,3.9,1.7,0.4,setosa
+7,4.6,3.4,1.4,0.3,setosa
+8,5,3.4,1.5,0.2,setosa
+9,4.4,2.9,1.4,0.2,setosa
+10,4.9,3.1,1.5,0.1,setosa
+11,5.4,3.7,1.5,0.2,setosa
+12,4.8,3.4,1.6,0.2,setosa
+13,4.8,3,1.4,0.1,setosa
+14,4.3,3,1.1,0.1,setosa
+15,5.8,4,1.2,0.2,setosa
+16,5.7,4.4,1.5,0.4,setosa
+17,5.4,3.9,1.3,0.4,setosa
+18,5.1,3.5,1.4,0.3,setosa
+19,5.7,3.8,1.7,0.3,setosa
+20,5.1,3.8,1.5,0.3,setosa
+21,5.4,3.4,1.7,0.2,setosa
+22,5.1,3.7,1.5,0.4,setosa
+23,4.6,3.6,1,0.2,setosa
+24,5.1,3.3,1.7,0.5,setosa
+25,4.8,3.4,1.9,0.2,setosa
+26,5,3,1.6,0.2,setosa
+27,5,3.4,1.6,0.4,setosa
+28,5.2,3.5,1.5,0.2,setosa
+29,5.2,3.4,1.4,0.2,setosa
+30,4.7,3.2,1.6,0.2,setosa
+31,4.8,3.1,1.6,0.2,setosa
+32,5.4,3.4,1.5,0.4,setosa
+33,5.2,4.1,1.5,0.1,setosa
+34,5.5,4.2,1.4,0.2,setosa
+35,4.9,3.1,1.5,0.2,setosa
+36,5,3.2,1.2,0.2,setosa
+37,5.5,3.5,1.3,0.2,setosa
+38,4.9,3.6,1.4,0.1,setosa
+39,4.4,3,1.3,0.2,setosa
+40,5.1,3.4,1.5,0.2,setosa
+41,5,3.5,1.3,0.3,setosa
+42,4.5,2.3,1.3,0.3,setosa
+43,4.4,3.2,1.3,0.2,setosa
+44,5,3.5,1.6,0.6,setosa
+45,5.1,3.8,1.9,0.4,setosa
+46,4.8,3,1.4,0.3,setosa
+47,5.1,3.8,1.6,0.2,setosa
+48,4.6,3.2,1.4,0.2,setosa
+49,5.3,3.7,1.5,0.2,setosa
+50,5,3.3,1.4,0.2,setosa
+51,7,3.2,4.7,1.4,versicolor
+52,6.4,3.2,4.5,1.5,versicolor
+53,6.9,3.1,4.9,1.5,versicolor
+54,5.5,2.3,4,1.3,versicolor
+55,6.5,2.8,4.6,1.5,versicolor
+56,5.7,2.8,4.5,1.3,versicolor
+57,6.3,3.3,4.7,1.6,versicolor
+58,4.9,2.4,3.3,1,versicolor
+59,6.6,2.9,4.6,1.3,versicolor
+60,5.2,2.7,3.9,1.4,versicolor
+61,5,2,3.5,1,versicolor
+62,5.9,3,4.2,1.5,versicolor
+63,6,2.2,4,1,versicolor
+64,6.1,2.9,4.7,1.4,versicolor
+65,5.6,2.9,3.6,1.3,versicolor
+66,6.7,3.1,4.4,1.4,versicolor
+67,5.6,3,4.5,1.5,versicolor
+68,5.8,2.7,4.1,1,versicolor
+69,6.2,2.2,4.5,1.5,versicolor
+70,5.6,2.5,3.9,1.1,versicolor
+71,5.9,3.2,4.8,1.8,versicolor
+72,6.1,2.8,4,1.3,versicolor
+73,6.3,2.5,4.9,1.5,versicolor
+74,6.1,2.8,4.7,1.2,versicolor
+75,6.4,2.9,4.3,1.3,versicolor
+76,6.6,3,4.4,1.4,versicolor
+77,6.8,2.8,4.8,1.4,versicolor
+78,6.7,3,5,1.7,versicolor
+79,6,2.9,4.5,1.5,versicolor
+80,5.7,2.6,3.5,1,versicolor
+81,5.5,2.4,3.8,1.1,versicolor
+82,5.5,2.4,3.7,1,versicolor
+83,5.8,2.7,3.9,1.2,versicolor
+84,6,2.7,5.1,1.6,versicolor
+85,5.4,3,4.5,1.5,versicolor
+86,6,3.4,4.5,1.6,versicolor
+87,6.7,3.1,4.7,1.5,versicolor
+88,6.3,2.3,4.4,1.3,versicolor
+89,5.6,3,4.1,1.3,versicolor
+90,5.5,2.5,4,1.3,versicolor
+91,5.5,2.6,4.4,1.2,versicolor
+92,6.1,3,4.6,1.4,versicolor
+93,5.8,2.6,4,1.2,versicolor
+94,5,2.3,3.3,1,versicolor
+95,5.6,2.7,4.2,1.3,versicolor
+96,5.7,3,4.2,1.2,versicolor
+97,5.7,2.9,4.2,1.3,versicolor
+98,6.2,2.9,4.3,1.3,versicolor
+99,5.1,2.5,3,1.1,versicolor
+100,5.7,2.8,4.1,1.3,versicolor
+101,6.3,3.3,6,2.5,virginica
+102,5.8,2.7,5.1,1.9,virginica
+103,7.1,3,5.9,2.1,virginica
+104,6.3,2.9,5.6,1.8,virginica
+105,6.5,3,5.8,2.2,virginica
+106,7.6,3,6.6,2.1,virginica
+107,4.9,2.5,4.5,1.7,virginica
+108,7.3,2.9,6.3,1.8,virginica
+109,6.7,2.5,5.8,1.8,virginica
+110,7.2,3.6,6.1,2.5,virginica
+111,6.5,3.2,5.1,2,virginica
+112,6.4,2.7,5.3,1.9,virginica
+113,6.8,3,5.5,2.1,virginica
+114,5.7,2.5,5,2,virginica
+115,5.8,2.8,5.1,2.4,virginica
+116,6.4,3.2,5.3,2.3,virginica
+117,6.5,3,5.5,1.8,virginica
+118,7.7,3.8,6.7,2.2,virginica
+119,7.7,2.6,6.9,2.3,virginica
+120,6,2.2,5,1.5,virginica
+121,6.9,3.2,5.7,2.3,virginica
+122,5.6,2.8,4.9,2,virginica
+123,7.7,2.8,6.7,2,virginica
+124,6.3,2.7,4.9,1.8,virginica
+125,6.7,3.3,5.7,2.1,virginica
+126,7.2,3.2,6,1.8,virginica
+127,6.2,2.8,4.8,1.8,virginica
+128,6.1,3,4.9,1.8,virginica
+129,6.4,2.8,5.6,2.1,virginica
+130,7.2,3,5.8,1.6,virginica
+131,7.4,2.8,6.1,1.9,virginica
+132,7.9,3.8,6.4,2,virginica
+133,6.4,2.8,5.6,2.2,virginica
+134,6.3,2.8,5.1,1.5,virginica
+135,6.1,2.6,5.6,1.4,virginica
+136,7.7,3,6.1,2.3,virginica
+137,6.3,3.4,5.6,2.4,virginica
+138,6.4,3.1,5.5,1.8,virginica
+139,6,3,4.8,1.8,virginica
+140,6.9,3.1,5.4,2.1,virginica
+141,6.7,3.1,5.6,2.4,virginica
+142,6.9,3.1,5.1,2.3,virginica
+143,5.8,2.7,5.1,1.9,virginica
+144,6.8,3.2,5.9,2.3,virginica
+145,6.7,3.3,5.7,2.5,virginica
+146,6.7,3,5.2,2.3,virginica
+147,6.3,2.5,5,1.9,virginica
+148,6.5,3,5.2,2,virginica
+149,6.2,3.4,5.4,2.3,virginica
+150,5.9,3,5.1,1.8,virginica
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/transform/input/iris/iris.transformed.csv
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/transform/input/iris/iris.transformed.csv b/src/test/scripts/functions/transform/input/iris/iris.transformed.csv
index ed7a19a..0ca65bf 100644
--- a/src/test/scripts/functions/transform/input/iris/iris.transformed.csv
+++ b/src/test/scripts/functions/transform/input/iris/iris.transformed.csv
@@ -1,151 +1,151 @@
-ID,Sepal.Length,Sepal.Width,Petal.Length,Petal.Width,Species_setosa,Species_versicolor,Species_virginica
-1,1,3.5,1,0.2,1,0,0
-2,1,3,1,0.2,1,0,0
-3,1,3.2,1,0.2,1,0,0
-4,1,3.1,1,0.2,1,0,0
-5,1,3.6,1,0.2,1,0,0
-6,1,3.9,1,0.4,1,0,0
-7,1,3.4,1,0.3,1,0,0
-8,1,3.4,1,0.2,1,0,0
-9,1,2.9,1,0.2,1,0,0
-10,1,3.1,1,0.1,1,0,0
-11,1,3.7,1,0.2,1,0,0
-12,1,3.4,1,0.2,1,0,0
-13,1,3,1,0.1,1,0,0
-14,1,3,1,0.1,1,0,0
-15,1,4,1,0.2,1,0,0
-16,1,4.4,1,0.4,1,0,0
-17,1,3.9,1,0.4,1,0,0
-18,1,3.5,1,0.3,1,0,0
-19,1,3.8,1,0.3,1,0,0
-20,1,3.8,1,0.3,1,0,0
-21,1,3.4,1,0.2,1,0,0
-22,1,3.7,1,0.4,1,0,0
-23,1,3.6,1,0.2,1,0,0
-24,1,3.3,1,0.5,1,0,0
-25,1,3.4,1,0.2,1,0,0
-26,1,3,1,0.2,1,0,0
-27,1,3.4,1,0.4,1,0,0
-28,1,3.5,1,0.2,1,0,0
-29,1,3.4,1,0.2,1,0,0
-30,1,3.2,1,0.2,1,0,0
-31,1,3.1,1,0.2,1,0,0
-32,1,3.4,1,0.4,1,0,0
-33,1,4.1,1,0.1,1,0,0
-34,1,4.2,1,0.2,1,0,0
-35,1,3.1,1,0.2,1,0,0
-36,1,3.2,1,0.2,1,0,0
-37,1,3.5,1,0.2,1,0,0
-38,1,3.6,1,0.1,1,0,0
-39,1,3,1,0.2,1,0,0
-40,1,3.4,1,0.2,1,0,0
-41,1,3.5,1,0.3,1,0,0
-42,1,2.3,1,0.3,1,0,0
-43,1,3.2,1,0.2,1,0,0
-44,1,3.5,1,0.6,1,0,0
-45,1,3.8,1,0.4,1,0,0
-46,1,3,1,0.3,1,0,0
-47,1,3.8,1,0.2,1,0,0
-48,1,3.2,1,0.2,1,0,0
-49,1,3.7,1,0.2,1,0,0
-50,1,3.3,1,0.2,1,0,0
-51,2,3.2,2,1.4,0,1,0
-52,2,3.2,2,1.5,0,1,0
-53,2,3.1,2,1.5,0,1,0
-54,1,2.3,2,1.3,0,1,0
-55,2,2.8,2,1.5,0,1,0
-56,1,2.8,2,1.3,0,1,0
-57,2,3.3,2,1.6,0,1,0
-58,1,2.4,1,1,0,1,0
-59,2,2.9,2,1.3,0,1,0
-60,1,2.7,1,1.4,0,1,0
-61,1,2,1,1,0,1,0
-62,1,3,2,1.5,0,1,0
-63,1,2.2,2,1,0,1,0
-64,1,2.9,2,1.4,0,1,0
-65,1,2.9,1,1.3,0,1,0
-66,2,3.1,2,1.4,0,1,0
-67,1,3,2,1.5,0,1,0
-68,1,2.7,2,1,0,1,0
-69,2,2.2,2,1.5,0,1,0
-70,1,2.5,1,1.1,0,1,0
-71,1,3.2,2,1.8,0,1,0
-72,1,2.8,2,1.3,0,1,0
-73,2,2.5,2,1.5,0,1,0
-74,1,2.8,2,1.2,0,1,0
-75,2,2.9,2,1.3,0,1,0
-76,2,3,2,1.4,0,1,0
-77,2,2.8,2,1.4,0,1,0
-78,2,3,2,1.7,0,1,0
-79,1,2.9,2,1.5,0,1,0
-80,1,2.6,1,1,0,1,0
-81,1,2.4,1,1.1,0,1,0
-82,1,2.4,1,1,0,1,0
-83,1,2.7,1,1.2,0,1,0
-84,1,2.7,2,1.6,0,1,0
-85,1,3,2,1.5,0,1,0
-86,1,3.4,2,1.6,0,1,0
-87,2,3.1,2,1.5,0,1,0
-88,2,2.3,2,1.3,0,1,0
-89,1,3,2,1.3,0,1,0
-90,1,2.5,2,1.3,0,1,0
-91,1,2.6,2,1.2,0,1,0
-92,1,3,2,1.4,0,1,0
-93,1,2.6,2,1.2,0,1,0
-94,1,2.3,1,1,0,1,0
-95,1,2.7,2,1.3,0,1,0
-96,1,3,2,1.2,0,1,0
-97,1,2.9,2,1.3,0,1,0
-98,2,2.9,2,1.3,0,1,0
-99,1,2.5,1,1.1,0,1,0
-100,1,2.8,2,1.3,0,1,0
-101,2,3.3,2,2.5,0,0,1
-102,1,2.7,2,1.9,0,0,1
-103,2,3,2,2.1,0,0,1
-104,2,2.9,2,1.8,0,0,1
-105,2,3,2,2.2,0,0,1
-106,2,3,2,2.1,0,0,1
-107,1,2.5,2,1.7,0,0,1
-108,2,2.9,2,1.8,0,0,1
-109,2,2.5,2,1.8,0,0,1
-110,2,3.6,2,2.5,0,0,1
-111,2,3.2,2,2,0,0,1
-112,2,2.7,2,1.9,0,0,1
-113,2,3,2,2.1,0,0,1
-114,1,2.5,2,2,0,0,1
-115,1,2.8,2,2.4,0,0,1
-116,2,3.2,2,2.3,0,0,1
-117,2,3,2,1.8,0,0,1
-118,2,3.8,2,2.2,0,0,1
-119,2,2.6,2,2.3,0,0,1
-120,1,2.2,2,1.5,0,0,1
-121,2,3.2,2,2.3,0,0,1
-122,1,2.8,2,2,0,0,1
-123,2,2.8,2,2,0,0,1
-124,2,2.7,2,1.8,0,0,1
-125,2,3.3,2,2.1,0,0,1
-126,2,3.2,2,1.8,0,0,1
-127,2,2.8,2,1.8,0,0,1
-128,1,3,2,1.8,0,0,1
-129,2,2.8,2,2.1,0,0,1
-130,2,3,2,1.6,0,0,1
-131,2,2.8,2,1.9,0,0,1
-132,2,3.8,2,2,0,0,1
-133,2,2.8,2,2.2,0,0,1
-134,2,2.8,2,1.5,0,0,1
-135,1,2.6,2,1.4,0,0,1
-136,2,3,2,2.3,0,0,1
-137,2,3.4,2,2.4,0,0,1
-138,2,3.1,2,1.8,0,0,1
-139,1,3,2,1.8,0,0,1
-140,2,3.1,2,2.1,0,0,1
-141,2,3.1,2,2.4,0,0,1
-142,2,3.1,2,2.3,0,0,1
-143,1,2.7,2,1.9,0,0,1
-144,2,3.2,2,2.3,0,0,1
-145,2,3.3,2,2.5,0,0,1
-146,2,3,2,2.3,0,0,1
-147,2,2.5,2,1.9,0,0,1
-148,2,3,2,2,0,0,1
-149,2,3.4,2,2.3,0,0,1
-150,1,3,2,1.8,0,0,1
+ID,Sepal.Length,Sepal.Width,Petal.Length,Petal.Width,Species_setosa,Species_versicolor,Species_virginica
+1,1,3.5,1,0.2,1,0,0
+2,1,3,1,0.2,1,0,0
+3,1,3.2,1,0.2,1,0,0
+4,1,3.1,1,0.2,1,0,0
+5,1,3.6,1,0.2,1,0,0
+6,1,3.9,1,0.4,1,0,0
+7,1,3.4,1,0.3,1,0,0
+8,1,3.4,1,0.2,1,0,0
+9,1,2.9,1,0.2,1,0,0
+10,1,3.1,1,0.1,1,0,0
+11,1,3.7,1,0.2,1,0,0
+12,1,3.4,1,0.2,1,0,0
+13,1,3,1,0.1,1,0,0
+14,1,3,1,0.1,1,0,0
+15,1,4,1,0.2,1,0,0
+16,1,4.4,1,0.4,1,0,0
+17,1,3.9,1,0.4,1,0,0
+18,1,3.5,1,0.3,1,0,0
+19,1,3.8,1,0.3,1,0,0
+20,1,3.8,1,0.3,1,0,0
+21,1,3.4,1,0.2,1,0,0
+22,1,3.7,1,0.4,1,0,0
+23,1,3.6,1,0.2,1,0,0
+24,1,3.3,1,0.5,1,0,0
+25,1,3.4,1,0.2,1,0,0
+26,1,3,1,0.2,1,0,0
+27,1,3.4,1,0.4,1,0,0
+28,1,3.5,1,0.2,1,0,0
+29,1,3.4,1,0.2,1,0,0
+30,1,3.2,1,0.2,1,0,0
+31,1,3.1,1,0.2,1,0,0
+32,1,3.4,1,0.4,1,0,0
+33,1,4.1,1,0.1,1,0,0
+34,1,4.2,1,0.2,1,0,0
+35,1,3.1,1,0.2,1,0,0
+36,1,3.2,1,0.2,1,0,0
+37,1,3.5,1,0.2,1,0,0
+38,1,3.6,1,0.1,1,0,0
+39,1,3,1,0.2,1,0,0
+40,1,3.4,1,0.2,1,0,0
+41,1,3.5,1,0.3,1,0,0
+42,1,2.3,1,0.3,1,0,0
+43,1,3.2,1,0.2,1,0,0
+44,1,3.5,1,0.6,1,0,0
+45,1,3.8,1,0.4,1,0,0
+46,1,3,1,0.3,1,0,0
+47,1,3.8,1,0.2,1,0,0
+48,1,3.2,1,0.2,1,0,0
+49,1,3.7,1,0.2,1,0,0
+50,1,3.3,1,0.2,1,0,0
+51,2,3.2,2,1.4,0,1,0
+52,2,3.2,2,1.5,0,1,0
+53,2,3.1,2,1.5,0,1,0
+54,1,2.3,2,1.3,0,1,0
+55,2,2.8,2,1.5,0,1,0
+56,1,2.8,2,1.3,0,1,0
+57,2,3.3,2,1.6,0,1,0
+58,1,2.4,1,1,0,1,0
+59,2,2.9,2,1.3,0,1,0
+60,1,2.7,1,1.4,0,1,0
+61,1,2,1,1,0,1,0
+62,1,3,2,1.5,0,1,0
+63,1,2.2,2,1,0,1,0
+64,1,2.9,2,1.4,0,1,0
+65,1,2.9,1,1.3,0,1,0
+66,2,3.1,2,1.4,0,1,0
+67,1,3,2,1.5,0,1,0
+68,1,2.7,2,1,0,1,0
+69,2,2.2,2,1.5,0,1,0
+70,1,2.5,1,1.1,0,1,0
+71,1,3.2,2,1.8,0,1,0
+72,1,2.8,2,1.3,0,1,0
+73,2,2.5,2,1.5,0,1,0
+74,1,2.8,2,1.2,0,1,0
+75,2,2.9,2,1.3,0,1,0
+76,2,3,2,1.4,0,1,0
+77,2,2.8,2,1.4,0,1,0
+78,2,3,2,1.7,0,1,0
+79,1,2.9,2,1.5,0,1,0
+80,1,2.6,1,1,0,1,0
+81,1,2.4,1,1.1,0,1,0
+82,1,2.4,1,1,0,1,0
+83,1,2.7,1,1.2,0,1,0
+84,1,2.7,2,1.6,0,1,0
+85,1,3,2,1.5,0,1,0
+86,1,3.4,2,1.6,0,1,0
+87,2,3.1,2,1.5,0,1,0
+88,2,2.3,2,1.3,0,1,0
+89,1,3,2,1.3,0,1,0
+90,1,2.5,2,1.3,0,1,0
+91,1,2.6,2,1.2,0,1,0
+92,1,3,2,1.4,0,1,0
+93,1,2.6,2,1.2,0,1,0
+94,1,2.3,1,1,0,1,0
+95,1,2.7,2,1.3,0,1,0
+96,1,3,2,1.2,0,1,0
+97,1,2.9,2,1.3,0,1,0
+98,2,2.9,2,1.3,0,1,0
+99,1,2.5,1,1.1,0,1,0
+100,1,2.8,2,1.3,0,1,0
+101,2,3.3,2,2.5,0,0,1
+102,1,2.7,2,1.9,0,0,1
+103,2,3,2,2.1,0,0,1
+104,2,2.9,2,1.8,0,0,1
+105,2,3,2,2.2,0,0,1
+106,2,3,2,2.1,0,0,1
+107,1,2.5,2,1.7,0,0,1
+108,2,2.9,2,1.8,0,0,1
+109,2,2.5,2,1.8,0,0,1
+110,2,3.6,2,2.5,0,0,1
+111,2,3.2,2,2,0,0,1
+112,2,2.7,2,1.9,0,0,1
+113,2,3,2,2.1,0,0,1
+114,1,2.5,2,2,0,0,1
+115,1,2.8,2,2.4,0,0,1
+116,2,3.2,2,2.3,0,0,1
+117,2,3,2,1.8,0,0,1
+118,2,3.8,2,2.2,0,0,1
+119,2,2.6,2,2.3,0,0,1
+120,1,2.2,2,1.5,0,0,1
+121,2,3.2,2,2.3,0,0,1
+122,1,2.8,2,2,0,0,1
+123,2,2.8,2,2,0,0,1
+124,2,2.7,2,1.8,0,0,1
+125,2,3.3,2,2.1,0,0,1
+126,2,3.2,2,1.8,0,0,1
+127,2,2.8,2,1.8,0,0,1
+128,1,3,2,1.8,0,0,1
+129,2,2.8,2,2.1,0,0,1
+130,2,3,2,1.6,0,0,1
+131,2,2.8,2,1.9,0,0,1
+132,2,3.8,2,2,0,0,1
+133,2,2.8,2,2.2,0,0,1
+134,2,2.8,2,1.5,0,0,1
+135,1,2.6,2,1.4,0,0,1
+136,2,3,2,2.3,0,0,1
+137,2,3.4,2,2.4,0,0,1
+138,2,3.1,2,1.8,0,0,1
+139,1,3,2,1.8,0,0,1
+140,2,3.1,2,2.1,0,0,1
+141,2,3.1,2,2.4,0,0,1
+142,2,3.1,2,2.3,0,0,1
+143,1,2.7,2,1.9,0,0,1
+144,2,3.2,2,2.3,0,0,1
+145,2,3.3,2,2.5,0,0,1
+146,2,3,2,2.3,0,0,1
+147,2,2.5,2,1.9,0,0,1
+148,2,3,2,2,0,0,1
+149,2,3.4,2,2.3,0,0,1
+150,1,3,2,1.8,0,0,1
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/ACosTest.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/ACosTest.dml b/src/test/scripts/functions/unary/matrix/ACosTest.dml
index 0e36efd..3259f57 100644
--- a/src/test/scripts/functions/unary/matrix/ACosTest.dml
+++ b/src/test/scripts/functions/unary/matrix/ACosTest.dml
@@ -19,13 +19,13 @@
#
#-------------------------------------------------------------
-
-# junit test class: org.apache.sysml.test.integration.functions.unary.matrix.CosTest.java
-
-Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text");
-CosVector = acos(Vector);
-write(CosVector, "$$outdir$$vector", format="text");
-
-Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text");
-CosMatrix = acos(Matrix);
-write(CosMatrix, "$$outdir$$matrix", format="text");
+
+# junit test class: org.apache.sysml.test.integration.functions.unary.matrix.CosTest.java
+
+Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text");
+CosVector = acos(Vector);
+write(CosVector, "$$outdir$$vector", format="text");
+
+Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text");
+CosMatrix = acos(Matrix);
+write(CosMatrix, "$$outdir$$matrix", format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/ASinTest.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/ASinTest.dml b/src/test/scripts/functions/unary/matrix/ASinTest.dml
index fce7ac6..07dbf61 100644
--- a/src/test/scripts/functions/unary/matrix/ASinTest.dml
+++ b/src/test/scripts/functions/unary/matrix/ASinTest.dml
@@ -19,13 +19,13 @@
#
#-------------------------------------------------------------
-
-# junit test class: org.apache.sysml.test.integration.functions.unary.matrix.SinTest.java
-
-Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text");
-SinVector = asin(Vector);
-write(SinVector, "$$outdir$$vector", format="text");
-
-Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text");
-SinMatrix = asin(Matrix);
-write(SinMatrix, "$$outdir$$matrix", format="text");
+
+# junit test class: org.apache.sysml.test.integration.functions.unary.matrix.SinTest.java
+
+Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text");
+SinVector = asin(Vector);
+write(SinVector, "$$outdir$$vector", format="text");
+
+Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text");
+SinMatrix = asin(Matrix);
+write(SinMatrix, "$$outdir$$matrix", format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/ATanTest.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/ATanTest.dml b/src/test/scripts/functions/unary/matrix/ATanTest.dml
index 3b9e6a6..e7b1b54 100644
--- a/src/test/scripts/functions/unary/matrix/ATanTest.dml
+++ b/src/test/scripts/functions/unary/matrix/ATanTest.dml
@@ -19,13 +19,13 @@
#
#-------------------------------------------------------------
-
-# junit test class: org.apache.sysml.test.integration.functions.unary.matrix.TanTest.java
-
-Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text");
-TanVector = atan(Vector);
-write(TanVector, "$$outdir$$vector", format="text");
-
-Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text");
-TanMatrix = atan(Matrix);
-write(TanMatrix, "$$outdir$$matrix", format="text");
+
+# junit test class: org.apache.sysml.test.integration.functions.unary.matrix.TanTest.java
+
+Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text");
+TanVector = atan(Vector);
+write(TanVector, "$$outdir$$vector", format="text");
+
+Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text");
+TanMatrix = atan(Matrix);
+write(TanMatrix, "$$outdir$$matrix", format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Ceil.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Ceil.R b/src/test/scripts/functions/unary/matrix/Ceil.R
index 8f2c36a..3dcef39 100644
--- a/src/test/scripts/functions/unary/matrix/Ceil.R
+++ b/src/test/scripts/functions/unary/matrix/Ceil.R
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "math.mtx", sep="")))
-
-R = ceiling(A);
-
-writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", sep=""));
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "math.mtx", sep="")))
+
+R = ceiling(A);
+
+writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", sep=""));
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Cummax.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Cummax.R b/src/test/scripts/functions/unary/matrix/Cummax.R
index 4679014..ad2d0ed 100644
--- a/src/test/scripts/functions/unary/matrix/Cummax.R
+++ b/src/test/scripts/functions/unary/matrix/Cummax.R
@@ -19,20 +19,20 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-if( nrow(A)>1 ){
- B = apply(A, 2, cummax);
-} else {
- B = A;
-}
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+if( nrow(A)>1 ){
+ B = apply(A, 2, cummax);
+} else {
+ B = A;
+}
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Cummin.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Cummin.R b/src/test/scripts/functions/unary/matrix/Cummin.R
index c10a4de..dc3a6b4 100644
--- a/src/test/scripts/functions/unary/matrix/Cummin.R
+++ b/src/test/scripts/functions/unary/matrix/Cummin.R
@@ -19,20 +19,20 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-if( nrow(A)>1 ){
- B = apply(A, 2, cummin);
-} else {
- B = A;
-}
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+if( nrow(A)>1 ){
+ B = apply(A, 2, cummin);
+} else {
+ B = A;
+}
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Cumprod.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Cumprod.R b/src/test/scripts/functions/unary/matrix/Cumprod.R
index 7f757a4..851c277 100644
--- a/src/test/scripts/functions/unary/matrix/Cumprod.R
+++ b/src/test/scripts/functions/unary/matrix/Cumprod.R
@@ -19,20 +19,20 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-if( nrow(A)>1 ){
- B = apply(A, 2, cumprod);
-} else {
- B = A;
-}
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+if( nrow(A)>1 ){
+ B = apply(A, 2, cumprod);
+} else {
+ B = A;
+}
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Cumsum.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Cumsum.R b/src/test/scripts/functions/unary/matrix/Cumsum.R
index f59c66e..71e78ff 100644
--- a/src/test/scripts/functions/unary/matrix/Cumsum.R
+++ b/src/test/scripts/functions/unary/matrix/Cumsum.R
@@ -19,20 +19,20 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-if( nrow(A)>1 ){
- B = apply(A, 2, cumsum);
-} else {
- B = A;
-}
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+if( nrow(A)>1 ){
+ B = apply(A, 2, cumsum);
+} else {
+ B = A;
+}
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Floor.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Floor.R b/src/test/scripts/functions/unary/matrix/Floor.R
index 86daba7..5fa09aa 100644
--- a/src/test/scripts/functions/unary/matrix/Floor.R
+++ b/src/test/scripts/functions/unary/matrix/Floor.R
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "math.mtx", sep="")))
-
-R = floor(A);
-
-writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", sep=""));
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "math.mtx", sep="")))
+
+R = floor(A);
+
+writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", sep=""));
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Inverse.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Inverse.R b/src/test/scripts/functions/unary/matrix/Inverse.R
index acbe0b9..ca3cd98 100644
--- a/src/test/scripts/functions/unary/matrix/Inverse.R
+++ b/src/test/scripts/functions/unary/matrix/Inverse.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-# Rscript ./test/scripts/functions/unary/matrix/Inverse.R ./test/scripts/functions/unary/matrix/in/A.mtx ./test/scripts/functions/unary/matrix/expected/AI
-
-A = readMM(args[1]);
-
-AI = solve(A);
-
-writeMM(as(AI, "CsparseMatrix"), args[2]);
-
+
+
+args <- commandArgs(TRUE)
+library(Matrix)
+
+# Rscript ./test/scripts/functions/unary/matrix/Inverse.R ./test/scripts/functions/unary/matrix/in/A.mtx ./test/scripts/functions/unary/matrix/expected/AI
+
+A = readMM(args[1]);
+
+AI = solve(A);
+
+writeMM(as(AI, "CsparseMatrix"), args[2]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Inverse.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Inverse.dml b/src/test/scripts/functions/unary/matrix/Inverse.dml
index f420658..100a72e 100644
--- a/src/test/scripts/functions/unary/matrix/Inverse.dml
+++ b/src/test/scripts/functions/unary/matrix/Inverse.dml
@@ -19,12 +19,12 @@
#
#-------------------------------------------------------------
-
-
-# Compute matrix inverse
-
-A = read($1);
-
-AI = inv(A);
-
-write(AI, $2);
+
+
+# Compute matrix inverse
+
+A = read($1);
+
+AI = inv(A);
+
+write(AI, $2);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Minus.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Minus.R b/src/test/scripts/functions/unary/matrix/Minus.R
index 4d1c04c..04801a8 100644
--- a/src/test/scripts/functions/unary/matrix/Minus.R
+++ b/src/test/scripts/functions/unary/matrix/Minus.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-X = as.matrix(readMM(paste(args[1], "X.mtx", sep="")))
-
-Y = -X;
-
-writeMM(as(Y, "CsparseMatrix"), paste(args[2], "Y", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+X = as.matrix(readMM(paste(args[1], "X.mtx", sep="")))
+
+Y = -X;
+
+writeMM(as(Y, "CsparseMatrix"), paste(args[2], "Y", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Minus.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Minus.dml b/src/test/scripts/functions/unary/matrix/Minus.dml
index a893fe4..6f09fe5 100644
--- a/src/test/scripts/functions/unary/matrix/Minus.dml
+++ b/src/test/scripts/functions/unary/matrix/Minus.dml
@@ -19,7 +19,7 @@
#
#-------------------------------------------------------------
-
-X = read($1, rows=$2, cols=$3, format="text");
-Y = -X;
-write(Y, $4, format="text");
+
+X = read($1, rows=$2, cols=$3, format="text");
+Y = -X;
+write(Y, $4, format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/QRsolve.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/QRsolve.R b/src/test/scripts/functions/unary/matrix/QRsolve.R
index 10ac5dd..861877f 100644
--- a/src/test/scripts/functions/unary/matrix/QRsolve.R
+++ b/src/test/scripts/functions/unary/matrix/QRsolve.R
@@ -1,44 +1,44 @@
-#-------------------------------------------------------------
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-# Rscript ./test/scripts/functions/unary/matrix/QRsolve.R ./test/scripts/functions/unary/matrix/in/A.mtx ./test/scripts/functions/unary/matrix/in/y.mtx ./test/scripts/functions/unary/matrix/expected/x
-
-A = readMM(args[1]); #paste(args[1], "A.mtx", sep=""));
-b = readMM(args[2]); #paste(args[1], "b.mtx", sep=""));
-
-m = nrow(A);
-n = ncol(A);
-
-Ab = cbind(as.matrix(A), as.matrix(b));
-
-Ab_qr = qr(Ab);
-Rb = qr.R(Ab_qr);
-
-R = Rb[1:n, 1:n];
-c = Rb[1:n, (n+1)];
-
-x = solve(R,c);
-
-writeMM(as(x, "CsparseMatrix"), args[3]); #paste(args[2], "x.mtx", sep=""));
-
+#-------------------------------------------------------------
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#-------------------------------------------------------------
+
+args <- commandArgs(TRUE)
+library(Matrix)
+
+# Rscript ./test/scripts/functions/unary/matrix/QRsolve.R ./test/scripts/functions/unary/matrix/in/A.mtx ./test/scripts/functions/unary/matrix/in/y.mtx ./test/scripts/functions/unary/matrix/expected/x
+
+A = readMM(args[1]); #paste(args[1], "A.mtx", sep=""));
+b = readMM(args[2]); #paste(args[1], "b.mtx", sep=""));
+
+m = nrow(A);
+n = ncol(A);
+
+Ab = cbind(as.matrix(A), as.matrix(b));
+
+Ab_qr = qr(Ab);
+Rb = qr.R(Ab_qr);
+
+R = Rb[1:n, 1:n];
+c = Rb[1:n, (n+1)];
+
+x = solve(R,c);
+
+writeMM(as(x, "CsparseMatrix"), args[3]); #paste(args[2], "x.mtx", sep=""));
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/QRsolve.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/QRsolve.dml b/src/test/scripts/functions/unary/matrix/QRsolve.dml
index 1852aaa..c418901 100644
--- a/src/test/scripts/functions/unary/matrix/QRsolve.dml
+++ b/src/test/scripts/functions/unary/matrix/QRsolve.dml
@@ -1,42 +1,42 @@
-#-------------------------------------------------------------
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#-------------------------------------------------------------
-
-# Ax = b: solve for x via QR decomposition
-
-#solve = externalFunction(Matrix[Double] a, Matrix[Double] b) return(Matrix[Double] c)
-# implemented in (classname="org.apache.sysml.udf.lib.LinearSolverWrapperCP",exectype="mem")
-
-A = read($1);
-b = read($2);
-
-m = nrow(A);
-n = ncol(A);
-
-Ab = append(A,b);
-
-[Hb,Rb] = qr(Ab);
-
-R = Rb[1:n, 1:n];
-c = Rb[1:n, (n+1)]
-
-x = solve(R,c);
-
-write(x, $3);
+#-------------------------------------------------------------
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#-------------------------------------------------------------
+
+# Ax = b: solve for x via QR decomposition
+
+#solve = externalFunction(Matrix[Double] a, Matrix[Double] b) return(Matrix[Double] c)
+# implemented in (classname="org.apache.sysml.udf.lib.LinearSolverWrapperCP",exectype="mem")
+
+A = read($1);
+b = read($2);
+
+m = nrow(A);
+n = ncol(A);
+
+Ab = append(A,b);
+
+[Hb,Rb] = qr(Ab);
+
+R = Rb[1:n, 1:n];
+c = Rb[1:n, (n+1)]
+
+x = solve(R,c);
+
+write(x, $3);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/RoundTest.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/RoundTest.R b/src/test/scripts/functions/unary/matrix/RoundTest.R
index 3090949..8237d5c 100644
--- a/src/test/scripts/functions/unary/matrix/RoundTest.R
+++ b/src/test/scripts/functions/unary/matrix/RoundTest.R
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "math.mtx", sep="")))
-
-R = round(A);
-
-writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", sep=""));
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "math.mtx", sep="")))
+
+R = round(A);
+
+writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", sep=""));
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/SProp.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/SProp.R b/src/test/scripts/functions/unary/matrix/SProp.R
index 7d54148..bdfa9d4 100644
--- a/src/test/scripts/functions/unary/matrix/SProp.R
+++ b/src/test/scripts/functions/unary/matrix/SProp.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-B = A * (1-A);
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+B = A * (1-A);
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/SelPos.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/SelPos.R b/src/test/scripts/functions/unary/matrix/SelPos.R
index cbe9941..1dbbcb7 100644
--- a/src/test/scripts/functions/unary/matrix/SelPos.R
+++ b/src/test/scripts/functions/unary/matrix/SelPos.R
@@ -1,34 +1,34 @@
-#-------------------------------------------------------------
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-B = A*(A>0);
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+#-------------------------------------------------------------
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#-------------------------------------------------------------
+
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+B = A*(A>0);
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Sigmoid.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Sigmoid.R b/src/test/scripts/functions/unary/matrix/Sigmoid.R
index d1c3be2..78cf8da 100644
--- a/src/test/scripts/functions/unary/matrix/Sigmoid.R
+++ b/src/test/scripts/functions/unary/matrix/Sigmoid.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-B = 1 / (1+exp(-A));
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+B = 1 / (1+exp(-A));
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Sign1.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Sign1.R b/src/test/scripts/functions/unary/matrix/Sign1.R
index 837ba80..f4bfb09 100644
--- a/src/test/scripts/functions/unary/matrix/Sign1.R
+++ b/src/test/scripts/functions/unary/matrix/Sign1.R
@@ -1,33 +1,33 @@
-#-------------------------------------------------------------
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-B = sign(A);
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+#-------------------------------------------------------------
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#-------------------------------------------------------------
+
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+B = sign(A);
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/Sign2.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/Sign2.R b/src/test/scripts/functions/unary/matrix/Sign2.R
index 837ba80..f4bfb09 100644
--- a/src/test/scripts/functions/unary/matrix/Sign2.R
+++ b/src/test/scripts/functions/unary/matrix/Sign2.R
@@ -1,33 +1,33 @@
-#-------------------------------------------------------------
-#
-# Licensed to the Apache Software Foundation (ASF) under one
-# or more contributor license agreements. See the NOTICE file
-# distributed with this work for additional information
-# regarding copyright ownership. The ASF licenses this file
-# to you under the Apache License, Version 2.0 (the
-# "License"); you may not use this file except in compliance
-# with the License. You may obtain a copy of the License at
-#
-# http://www.apache.org/licenses/LICENSE-2.0
-#
-# Unless required by applicable law or agreed to in writing,
-# software distributed under the License is distributed on an
-# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
-# KIND, either express or implied. See the License for the
-# specific language governing permissions and limitations
-# under the License.
-#
-#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-B = sign(A);
-
-writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
-
-
+#-------------------------------------------------------------
+#
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements. See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership. The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License. You may obtain a copy of the License at
+#
+# http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied. See the License for the
+# specific language governing permissions and limitations
+# under the License.
+#
+#-------------------------------------------------------------
+
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A = as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+B = sign(A);
+
+writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/eigen.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/eigen.dml b/src/test/scripts/functions/unary/matrix/eigen.dml
index 5ec2a3e..e4c7c46 100644
--- a/src/test/scripts/functions/unary/matrix/eigen.dml
+++ b/src/test/scripts/functions/unary/matrix/eigen.dml
@@ -19,42 +19,42 @@
#
#-------------------------------------------------------------
-
-/*
- * DML script to test Eigen Factorization
- */
-
-A = read($1);
-A = t(A) %*% A; # make the input matrix symmetric
-
-[eval, evec] = eigen(A);
-
-/*
-B = evec %*% diag(eval) %*% t(evec);
-diff = sum(A - B);
-D = matrix(1,1,1);
-D = diff*D;
-*/
-
-numEval = $2;
-D = matrix(1, numEval, 1);
-for ( i in 1:numEval ) {
- Av = A %*% evec[,i];
- rhs = castAsScalar(eval[i,1]) * evec[,i];
- diff = sum(Av-rhs);
- D[i,1] = diff;
-}
-
-/*
-# TODO: dummy if() must be removed
-v = evec[,1];
-Av = A %*% v;
-rhs = castAsScalar(eval[1,1]) * evec[,1];
-diff = sum(Av-rhs);
-
-D = matrix(1,1,1);
-D = diff*D;
-*/
-
-write(D, $3);
-
+
+/*
+ * DML script to test Eigen Factorization
+ */
+
+A = read($1);
+A = t(A) %*% A; # make the input matrix symmetric
+
+[eval, evec] = eigen(A);
+
+/*
+B = evec %*% diag(eval) %*% t(evec);
+diff = sum(A - B);
+D = matrix(1,1,1);
+D = diff*D;
+*/
+
+numEval = $2;
+D = matrix(1, numEval, 1);
+for ( i in 1:numEval ) {
+ Av = A %*% evec[,i];
+ rhs = castAsScalar(eval[i,1]) * evec[,i];
+ diff = sum(Av-rhs);
+ D[i,1] = diff;
+}
+
+/*
+# TODO: dummy if() must be removed
+v = evec[,1];
+Av = A %*% v;
+rhs = castAsScalar(eval[1,1]) * evec[,1];
+diff = sum(Av-rhs);
+
+D = matrix(1,1,1);
+D = diff*D;
+*/
+
+write(D, $3);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/lu.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/lu.dml b/src/test/scripts/functions/unary/matrix/lu.dml
index 24c9a68..8ad83a0 100644
--- a/src/test/scripts/functions/unary/matrix/lu.dml
+++ b/src/test/scripts/functions/unary/matrix/lu.dml
@@ -19,21 +19,21 @@
#
#-------------------------------------------------------------
-
-/*
- * DML script to test LU Factorization
- */
-
-A = read($1);
-
-[P, L, U] = lu(A);
-
-PA = P %*% A;
-LU = L %*% U;
-
-diff = sum(PA - LU);
-D = matrix(1,1,1);
-D = diff*D;
-
-write(D, $2);
-
+
+/*
+ * DML script to test LU Factorization
+ */
+
+A = read($1);
+
+[P, L, U] = lu(A);
+
+PA = P %*% A;
+LU = L %*% U;
+
+diff = sum(PA - LU);
+D = matrix(1,1,1);
+D = diff*D;
+
+write(D, $2);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/qr.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/qr.dml b/src/test/scripts/functions/unary/matrix/qr.dml
index 47b87e2..184ff80 100644
--- a/src/test/scripts/functions/unary/matrix/qr.dml
+++ b/src/test/scripts/functions/unary/matrix/qr.dml
@@ -19,53 +19,53 @@
#
#-------------------------------------------------------------
-
-/*
- * DML script to test QR factorization
- */
-
-A = read($1);
-
-[H,R] = qr(A);
-
-# Compute Q from Householder vectors
-m = nrow(A);
-n = ncol(A);
-
-/*
-ones = matrix(1, m, 1);
-eye = diag(ones);
-Q = eye;
-for( j in n:1 ) {
- v = H[,j];
- Qj = eye - 2 * (v %*% t(v))/castAsScalar((t(v)%*%v));
- Q = Qj %*% Q;
-}
-
-# Q must be orthogonal i.e., Q = Q^{-1}
-I = Q %*% t(Q);
-
-# Multiplying Q and R, we must get back original A
-B = Q %*% R;
-
-d = sum(A-B);
-print("d = " + d);
-diff = 0; #sum(A - B);
-# write the difference between original A and computed B as a dummy 1x1 matrix
-D = matrix(1,1,1);
-D = diff*D;
-
-write(I, $2);
-write(D, $3);
-*/
-
-# Compute t(Q)%*%b using computed householder vectors
-b = read($2);
-tQb = matrix(0, m, 1);
-min_mn = min(m,n);
-for(j in min_mn:1) {
- v = H[,j];
- b = b - 2 * (v %*% (t(v) %*% b));
-}
-
-write(b, $3);
+
+/*
+ * DML script to test QR factorization
+ */
+
+A = read($1);
+
+[H,R] = qr(A);
+
+# Compute Q from Householder vectors
+m = nrow(A);
+n = ncol(A);
+
+/*
+ones = matrix(1, m, 1);
+eye = diag(ones);
+Q = eye;
+for( j in n:1 ) {
+ v = H[,j];
+ Qj = eye - 2 * (v %*% t(v))/castAsScalar((t(v)%*%v));
+ Q = Qj %*% Q;
+}
+
+# Q must be orthogonal i.e., Q = Q^{-1}
+I = Q %*% t(Q);
+
+# Multiplying Q and R, we must get back original A
+B = Q %*% R;
+
+d = sum(A-B);
+print("d = " + d);
+diff = 0; #sum(A - B);
+# write the difference between original A and computed B as a dummy 1x1 matrix
+D = matrix(1,1,1);
+D = diff*D;
+
+write(I, $2);
+write(D, $3);
+*/
+
+# Compute t(Q)%*%b using computed householder vectors
+b = read($2);
+tQb = matrix(0, m, 1);
+min_mn = min(m,n);
+for(j in min_mn:1) {
+ v = H[,j];
+ b = b - 2 * (v %*% (t(v) %*% b));
+}
+
+write(b, $3);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/removeEmpty2.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/removeEmpty2.dml b/src/test/scripts/functions/unary/matrix/removeEmpty2.dml
index c59641b..a8df80d 100644
--- a/src/test/scripts/functions/unary/matrix/removeEmpty2.dml
+++ b/src/test/scripts/functions/unary/matrix/removeEmpty2.dml
@@ -19,8 +19,8 @@
#
#-------------------------------------------------------------
-
-V = read($1);
-V1 = removeEmpty(target=V, margin="rows");
-Vp = removeEmpty(target=V1, margin="cols");
+
+V = read($1);
+V1 = removeEmpty(target=V, margin="rows");
+Vp = removeEmpty(target=V1, margin="cols");
write(Vp, $3);
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/removeEmpty3.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/removeEmpty3.dml b/src/test/scripts/functions/unary/matrix/removeEmpty3.dml
index afdcea3..15fd1a8 100644
--- a/src/test/scripts/functions/unary/matrix/removeEmpty3.dml
+++ b/src/test/scripts/functions/unary/matrix/removeEmpty3.dml
@@ -19,9 +19,9 @@
#
#-------------------------------------------------------------
-
-V = read($1, rows=$2, cols=$3, format="text");
-V1 = diag(V); #diagV2M
-V2 = removeEmpty(target=V1, margin=$4);
-Vp = rowSums(V2);
+
+V = read($1, rows=$2, cols=$3, format="text");
+V1 = diag(V); #diagV2M
+V2 = removeEmpty(target=V1, margin=$4);
+Vp = rowSums(V2);
write(Vp, $5, format="text");
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/removeEmpty4.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/removeEmpty4.dml b/src/test/scripts/functions/unary/matrix/removeEmpty4.dml
index 4137b52..99f95a2 100644
--- a/src/test/scripts/functions/unary/matrix/removeEmpty4.dml
+++ b/src/test/scripts/functions/unary/matrix/removeEmpty4.dml
@@ -19,8 +19,8 @@
#
#-------------------------------------------------------------
-
+
V = read($1);
-I = read($2);
-Vp = removeEmpty(target=V, margin=$3, select=I);
+I = read($2);
+Vp = removeEmpty(target=V, margin=$3, select=I);
write(Vp, $4);
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_Infinity.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_Infinity.R b/src/test/scripts/functions/unary/matrix/replace_Infinity.R
index c3cbcf5..2f42e42 100644
--- a/src/test/scripts/functions/unary/matrix/replace_Infinity.R
+++ b/src/test/scripts/functions/unary/matrix/replace_Infinity.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-C <- replace(A, is.infinite(A), 4711);
-
-writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+C <- replace(A, is.infinite(A), 4711);
+
+writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_Infinity.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_Infinity.dml b/src/test/scripts/functions/unary/matrix/replace_Infinity.dml
index d262b43..233d771 100644
--- a/src/test/scripts/functions/unary/matrix/replace_Infinity.dml
+++ b/src/test/scripts/functions/unary/matrix/replace_Infinity.dml
@@ -19,8 +19,8 @@
#
#-------------------------------------------------------------
-
-A = read($1, rows=$2, cols=$3, format="text");
-if(1==1){} #for replace test in mappers
-C = replace(target=A, pattern=1/0, replacement=4711);
+
+A = read($1, rows=$2, cols=$3, format="text");
+if(1==1){} #for replace test in mappers
+C = replace(target=A, pattern=1/0, replacement=4711);
write(C, $4, format="text");
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_NInfinity.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_NInfinity.R b/src/test/scripts/functions/unary/matrix/replace_NInfinity.R
index c3cbcf5..2f42e42 100644
--- a/src/test/scripts/functions/unary/matrix/replace_NInfinity.R
+++ b/src/test/scripts/functions/unary/matrix/replace_NInfinity.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-C <- replace(A, is.infinite(A), 4711);
-
-writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+C <- replace(A, is.infinite(A), 4711);
+
+writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_NInfinity.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_NInfinity.dml b/src/test/scripts/functions/unary/matrix/replace_NInfinity.dml
index 97ad0c9..42a592d 100644
--- a/src/test/scripts/functions/unary/matrix/replace_NInfinity.dml
+++ b/src/test/scripts/functions/unary/matrix/replace_NInfinity.dml
@@ -19,8 +19,8 @@
#
#-------------------------------------------------------------
-
-A = read($1, rows=$2, cols=$3, format="text");
-if(1==1){} #for replace test in mappers
-C = replace(target=A, pattern=-1/0, replacement=4711);
+
+A = read($1, rows=$2, cols=$3, format="text");
+if(1==1){} #for replace test in mappers
+C = replace(target=A, pattern=-1/0, replacement=4711);
write(C, $4, format="text");
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_NaN.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_NaN.R b/src/test/scripts/functions/unary/matrix/replace_NaN.R
index 3fa5576..86e34ab 100644
--- a/src/test/scripts/functions/unary/matrix/replace_NaN.R
+++ b/src/test/scripts/functions/unary/matrix/replace_NaN.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-C <- replace(A, is.nan(A), 4711);
-
-writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+C <- replace(A, is.nan(A), 4711);
+
+writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_NaN.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_NaN.dml b/src/test/scripts/functions/unary/matrix/replace_NaN.dml
index d61ca6c..edc815c 100644
--- a/src/test/scripts/functions/unary/matrix/replace_NaN.dml
+++ b/src/test/scripts/functions/unary/matrix/replace_NaN.dml
@@ -19,8 +19,8 @@
#
#-------------------------------------------------------------
-
-A = read($1, rows=$2, cols=$3, format="text");
-if(1==1){} #for replace test in mappers
-C = replace(target=A, pattern=0/0, replacement=4711);
+
+A = read($1, rows=$2, cols=$3, format="text");
+if(1==1){} #for replace test in mappers
+C = replace(target=A, pattern=0/0, replacement=4711);
write(C, $4, format="text");
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_maxmin.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_maxmin.R b/src/test/scripts/functions/unary/matrix/replace_maxmin.R
index 4352979..f1dea15 100644
--- a/src/test/scripts/functions/unary/matrix/replace_maxmin.R
+++ b/src/test/scripts/functions/unary/matrix/replace_maxmin.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-C <- replace(A, A==as.numeric(min(A)), max(A));
-
-writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+C <- replace(A, A==as.numeric(min(A)), max(A));
+
+writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_maxmin.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_maxmin.dml b/src/test/scripts/functions/unary/matrix/replace_maxmin.dml
index d36bf1f..d612ff3 100644
--- a/src/test/scripts/functions/unary/matrix/replace_maxmin.dml
+++ b/src/test/scripts/functions/unary/matrix/replace_maxmin.dml
@@ -19,7 +19,7 @@
#
#-------------------------------------------------------------
-
-A = read($1, rows=$2, cols=$3, format="text");
-C = replace(target=A, pattern=min(A), replacement=max(A));
+
+A = read($1, rows=$2, cols=$3, format="text");
+C = replace(target=A, pattern=min(A), replacement=max(A));
write(C, $4, format="text");
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_value.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_value.R b/src/test/scripts/functions/unary/matrix/replace_value.R
index d615885..bfce85b 100644
--- a/src/test/scripts/functions/unary/matrix/replace_value.R
+++ b/src/test/scripts/functions/unary/matrix/replace_value.R
@@ -19,16 +19,16 @@
#
#-------------------------------------------------------------
-
-args <- commandArgs(TRUE)
-options(digits=22)
-
-library("Matrix")
-
-A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
-
-C <- replace(A, A==as.numeric(args[2]), 4711);
-
-writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
-
-
+
+args <- commandArgs(TRUE)
+options(digits=22)
+
+library("Matrix")
+
+A <- as.matrix(readMM(paste(args[1], "A.mtx", sep="")))
+
+C <- replace(A, A==as.numeric(args[2]), 4711);
+
+writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep=""));
+
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/matrix/replace_value.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/matrix/replace_value.dml b/src/test/scripts/functions/unary/matrix/replace_value.dml
index 4e81999..8bc7dc0 100644
--- a/src/test/scripts/functions/unary/matrix/replace_value.dml
+++ b/src/test/scripts/functions/unary/matrix/replace_value.dml
@@ -19,7 +19,7 @@
#
#-------------------------------------------------------------
-
-A = read($1, rows=$2, cols=$3, format="text");
-C = replace(target=A, pattern=$5, replacement=4711);
+
+A = read($1, rows=$2, cols=$3, format="text");
+C = replace(target=A, pattern=$5, replacement=4711);
write(C, $4, format="text");
\ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/ACosTest.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/ACosTest.dml b/src/test/scripts/functions/unary/scalar/ACosTest.dml
index aed2f41..8ef88f1 100644
--- a/src/test/scripts/functions/unary/scalar/ACosTest.dml
+++ b/src/test/scripts/functions/unary/scalar/ACosTest.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-# junit test class: org.apache.sysml.test.integration.functions.unary.scalar.CosTest.java
-
-$$readhelper$$
-
-IntComputation = acos($$int$$);
-IntComputationHelper = IntComputation * Helper;
-write(IntComputationHelper, "$$outdir$$int", format="text");
-
-DoubleComputation = acos($$double$$);
-DoubleComputationHelper = DoubleComputation * Helper;
-write(DoubleComputationHelper, "$$outdir$$double", format="text");
+
+# junit test class: org.apache.sysml.test.integration.functions.unary.scalar.CosTest.java
+
+$$readhelper$$
+
+IntComputation = acos($$int$$);
+IntComputationHelper = IntComputation * Helper;
+write(IntComputationHelper, "$$outdir$$int", format="text");
+
+DoubleComputation = acos($$double$$);
+DoubleComputationHelper = DoubleComputation * Helper;
+write(DoubleComputationHelper, "$$outdir$$double", format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/ASinTest.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/ASinTest.dml b/src/test/scripts/functions/unary/scalar/ASinTest.dml
index 7add846..033e151 100644
--- a/src/test/scripts/functions/unary/scalar/ASinTest.dml
+++ b/src/test/scripts/functions/unary/scalar/ASinTest.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-# junit test class: org.apache.sysml.test.integration.functions.unary.scalar.SinTest.java
-
-$$readhelper$$
-
-IntComputation = asin($$int$$);
-IntComputationHelper = IntComputation * Helper;
-write(IntComputationHelper, "$$outdir$$int", format="text");
-
-DoubleComputation = asin($$double$$);
-DoubleComputationHelper = DoubleComputation * Helper;
-write(DoubleComputationHelper, "$$outdir$$double", format="text");
+
+# junit test class: org.apache.sysml.test.integration.functions.unary.scalar.SinTest.java
+
+$$readhelper$$
+
+IntComputation = asin($$int$$);
+IntComputationHelper = IntComputation * Helper;
+write(IntComputationHelper, "$$outdir$$int", format="text");
+
+DoubleComputation = asin($$double$$);
+DoubleComputationHelper = DoubleComputation * Helper;
+write(DoubleComputationHelper, "$$outdir$$double", format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/ATanTest.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/ATanTest.dml b/src/test/scripts/functions/unary/scalar/ATanTest.dml
index cd4a9a3..8910889 100644
--- a/src/test/scripts/functions/unary/scalar/ATanTest.dml
+++ b/src/test/scripts/functions/unary/scalar/ATanTest.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-# junit test class: org.apache.sysml.test.integration.functions.unary.scalar.TanTest.java
-
-$$readhelper$$
-
-IntComputation = atan($$int$$);
-IntComputationHelper = IntComputation * Helper;
-write(IntComputationHelper, "$$outdir$$int", format="text");
-
-DoubleComputation = atan($$double$$);
-DoubleComputationHelper = DoubleComputation * Helper;
-write(DoubleComputationHelper, "$$outdir$$double", format="text");
+
+# junit test class: org.apache.sysml.test.integration.functions.unary.scalar.TanTest.java
+
+$$readhelper$$
+
+IntComputation = atan($$int$$);
+IntComputationHelper = IntComputation * Helper;
+write(IntComputationHelper, "$$outdir$$int", format="text");
+
+DoubleComputation = atan($$double$$);
+DoubleComputationHelper = DoubleComputation * Helper;
+write(DoubleComputationHelper, "$$outdir$$double", format="text");
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.R b/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.R
index 1ae7d73..5efe975 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qchisq(as.numeric(args[1]), df=as.numeric(args[2]));
-p = pchisq(qtle, df=as.numeric(args[2]));
-pl = pchisq(qtle, df=as.numeric(args[2]), lower.tail=FALSE);
-
-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 = qchisq(as.numeric(args[1]), df=as.numeric(args[2]));
+p = pchisq(qtle, df=as.numeric(args[2]));
+pl = pchisq(qtle, df=as.numeric(args[2]), lower.tail=FALSE);
+
+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]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.dml b/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.dml
index 75f40a9..ee1acd3 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_CHISQ.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qchisq(target=$1, df=$2);
-p = pchisq(target=q, df=$2);
-pl = pchisq(target=q, df=$2, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $3);
+
+
+q = qchisq(target=$1, df=$2);
+p = pchisq(target=q, df=$2);
+pl = pchisq(target=q, df=$2, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $3);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_EXP.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_EXP.R b/src/test/scripts/functions/unary/scalar/DFTest_EXP.R
index ab85886..d99295c 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_EXP.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_EXP.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qexp(as.numeric(args[1]), rate=as.numeric(args[2]));
-p = pexp(qtle, rate=as.numeric(args[2]));
-pl = pexp(qtle, rate=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 = qexp(as.numeric(args[1]), rate=as.numeric(args[2]));
+p = pexp(qtle, rate=as.numeric(args[2]));
+pl = pexp(qtle, rate=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]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_EXP.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_EXP.dml b/src/test/scripts/functions/unary/scalar/DFTest_EXP.dml
index 260c429..54082e0 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_EXP.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_EXP.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qexp(target=$1, rate=$2);
-p = pexp(target=q, rate=$2);
-pl = pexp(target=q, rate=$2, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $3);
+
+
+q = qexp(target=$1, rate=$2);
+p = pexp(target=q, rate=$2);
+pl = pexp(target=q, rate=$2, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $3);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.R b/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.R
index faa75e3..5d15190 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qexp(as.numeric(args[1])); # default rate = 1.0
-p = pexp(qtle);
-pl = pexp(qtle, 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[2]);
-
+
+
+args <- commandArgs(TRUE)
+library(Matrix)
+
+qtle = qexp(as.numeric(args[1])); # default rate = 1.0
+p = pexp(qtle);
+pl = pexp(qtle, 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[2]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.dml b/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.dml
index 057a30b..3e64fe8 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_EXP_NOPARAMS.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qexp(target=$1); # default rate=1.0
-p = pexp(target=q);
-pl = pexp(target=q, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $2);
+
+
+q = qexp(target=$1); # default rate=1.0
+p = pexp(target=q);
+pl = pexp(target=q, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $2);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_F.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_F.R b/src/test/scripts/functions/unary/scalar/DFTest_F.R
index b6d96a2..49524a8 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_F.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_F.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qf(as.numeric(args[1]), df1=as.numeric(args[2]), df2=as.numeric(args[3]));
-p = pf(qtle, df1=as.numeric(args[2]), df2=as.numeric(args[3]));
-pl = pf(qtle, df1=as.numeric(args[2]), df2=as.numeric(args[3]), 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[4]);
-
+
+
+args <- commandArgs(TRUE)
+library(Matrix)
+
+qtle = qf(as.numeric(args[1]), df1=as.numeric(args[2]), df2=as.numeric(args[3]));
+p = pf(qtle, df1=as.numeric(args[2]), df2=as.numeric(args[3]));
+pl = pf(qtle, df1=as.numeric(args[2]), df2=as.numeric(args[3]), 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[4]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_F.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_F.dml b/src/test/scripts/functions/unary/scalar/DFTest_F.dml
index 332b729..64162b2 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_F.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_F.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qf(target=$1, df1=$2, df2=$3);
-p = pf(target=q, df1=$2, df2=$3);
-pl = pf(target=q, df1=$2, df2=$3, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $4);
+
+
+q = qf(target=$1, df1=$2, df2=$3);
+p = pf(target=q, df1=$2, df2=$3);
+pl = pf(target=q, df1=$2, df2=$3, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $4);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.R b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.R
index 0556b73..9fc46bc 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qnorm(as.numeric(args[1]), mean=as.numeric(args[2]), sd=as.numeric(args[3]));
-p = pnorm(qtle, mean=as.numeric(args[2]), sd=as.numeric(args[3]));
-pl = pnorm(qtle, mean=as.numeric(args[2]), sd=as.numeric(args[3]), 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[4]);
-
+
+
+args <- commandArgs(TRUE)
+library(Matrix)
+
+qtle = qnorm(as.numeric(args[1]), mean=as.numeric(args[2]), sd=as.numeric(args[3]));
+p = pnorm(qtle, mean=as.numeric(args[2]), sd=as.numeric(args[3]));
+pl = pnorm(qtle, mean=as.numeric(args[2]), sd=as.numeric(args[3]), 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[4]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.dml b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.dml
index f7c43b8..2b7a396 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qnorm(target=$1, mean=$2, sd=$3);
-p = pnorm(target=q, mean=$2, sd=$3);
-pl = pnorm(target=q, mean=$2, sd=$3, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $4);
+
+
+q = qnorm(target=$1, mean=$2, sd=$3);
+p = pnorm(target=q, mean=$2, sd=$3);
+pl = pnorm(target=q, mean=$2, sd=$3, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $4);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.R b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.R
index 9ab19b8..e5bdcf5 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qnorm(as.numeric(args[1]), mean=as.numeric(args[2]));
-p = pnorm(qtle, mean=as.numeric(args[2]));
-pl = pnorm(qtle, mean=as.numeric(args[2]), lower.tail=FALSE);
-
-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 = qnorm(as.numeric(args[1]), mean=as.numeric(args[2]));
+p = pnorm(qtle, mean=as.numeric(args[2]));
+pl = pnorm(qtle, mean=as.numeric(args[2]), lower.tail=FALSE);
+
+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]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.dml b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.dml
index ac7b017..a8429c3 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_MEAN.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qnorm(target=$1, mean=$2);
-p = pnorm(target=q, mean=$2);
-pl = pnorm(target=q, mean=$2, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $3);
+
+
+q = qnorm(target=$1, mean=$2);
+p = pnorm(target=q, mean=$2);
+pl = pnorm(target=q, mean=$2, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $3);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.R b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.R
index bc3a0b2..efe4f60 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qnorm(as.numeric(args[1]));
-p = pnorm(qtle);
-pl = pnorm(qtle, 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[2]);
-
+
+
+args <- commandArgs(TRUE)
+library(Matrix)
+
+qtle = qnorm(as.numeric(args[1]));
+p = pnorm(qtle);
+pl = pnorm(qtle, 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[2]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.dml b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.dml
index b2140ee..995e741 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_NOPARAMS.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qnorm(target=$1);
-p = pnorm(target=q);
-pl = pnorm(target=q, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $2);
+
+
+q = qnorm(target=$1);
+p = pnorm(target=q);
+pl = pnorm(target=q, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $2);
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.R
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.R b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.R
index a5134b3..a758584 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.R
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.R
@@ -19,19 +19,19 @@
#
#-------------------------------------------------------------
-
-
-args <- commandArgs(TRUE)
-library(Matrix)
-
-qtle = qnorm(as.numeric(args[1]), sd=as.numeric(args[2]));
-p = pnorm(qtle, sd=as.numeric(args[2]));
-pl = pnorm(qtle, sd=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 = qnorm(as.numeric(args[1]), sd=as.numeric(args[2]));
+p = pnorm(qtle, sd=as.numeric(args[2]));
+pl = pnorm(qtle, sd=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]);
+
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/816e2db8/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.dml
----------------------------------------------------------------------
diff --git a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.dml b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.dml
index c2d941f..3ee0288 100644
--- a/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.dml
+++ b/src/test/scripts/functions/unary/scalar/DFTest_NORMAL_SD.dml
@@ -19,15 +19,15 @@
#
#-------------------------------------------------------------
-
-
-q = qnorm(target=$1, sd=$2);
-p = pnorm(target=q, sd=$2);
-pl = pnorm(target=q, sd=$2, lower.tail=FALSE);
-
-out = matrix(0, rows=3, cols=1);
-out[1,1] = q;
-out[2,1] = p;
-out[3,1] = pl;
-
-write(out, $3);
+
+
+q = qnorm(target=$1, sd=$2);
+p = pnorm(target=q, sd=$2);
+pl = pnorm(target=q, sd=$2, lower.tail=FALSE);
+
+out = matrix(0, rows=3, cols=1);
+out[1,1] = q;
+out[2,1] = p;
+out[3,1] = pl;
+
+write(out, $3);