fix out of bounds exception

src/main/java/org/apache/sysds/runtime/codegen/LibSpoofPrimitives.java

@@ -2153,15 +2153,15 @@ public static double[] vectConv2dmmWrite(double[] a, double[] b, int ai, int bi,
 	} 
 
 	public static double vectVar(double[] a, int ai, int len) {
-		double meanVal = vectMean(a, ai, len);
+		double meanVal = Math.pow(vectMean(a, ai, len), 2);
 		double[] aSqr = vectPow2Write(a, ai, len);
-		return ((double) 1 /len)*(vectSum(aSqr, ai, len)-meanVal);
+		return ((double) 1 /len)*(vectSum(aSqr, 0, len)-meanVal);
 	}
 
 	public static double vectVar(double[] avals, int[] aix, int ai, int alen, int len) {
-		double meanVal = vectMean(avals, aix, ai, alen, len);
+		double meanVal = Math.pow(vectMean(avals, aix, ai, alen, len), 2);
 		double[] avalsSqr = vectPow2Write(avals, aix, ai, alen, len);
-		return ((double) 1 /len)*(vectSum(avalsSqr, ai, len)-meanVal);
+		return ((double) 1 /len)*(vectSum(avalsSqr, 0, alen)-meanVal);
 	}
 
 	//complex builtin functions that are not directly generated

src/test/scripts/functions/codegen/rowAggPattern47.R

@@ -28,7 +28,8 @@ rowVars <- function(X) {
     apply(X, 1, var)
 }
 
-X = matrix(seq(1,6000)/6000, 600, 10, byrow=TRUE);
+# X = matrix(seq(1,6000)/6000, 600, 10, byrow=TRUE);
+X = matrix(2, 10, 10);
 
 R = as.matrix(sum(rowVars(X)));
 

src/test/scripts/functions/codegen/rowAggPattern47.dml

@@ -19,8 +19,9 @@
 #
 #-------------------------------------------------------------
 
+#X = matrix(seq(1,6000)/6000, 600, 10);
+X = matrix(2, 10, 10)
 
-X = matrix(seq(1,6000)/6000, 600, 10);
 while(FALSE){}
 
 R = as.matrix(sum(rowVars(X)));