http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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/05d2c0a8/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);
