add bigger matrices

Author: Twolvero

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

@@ -29,7 +29,7 @@ colProds <- function(X) {
 
 X = matrix(3, 10, 10)
 # X = matrix(seq(9, 100*100+8), 100, 100, byrow=TRUE);
-# F = matrix(3, 10, 10)
+# F = matrix(0.1, 10, 10)
 # X = matrix(seq(from = 1, to = 10, by = 2), 10, 20)
 # X = matrix(1.3109348721, 10, 10)
 

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

@@ -21,7 +21,7 @@
 
 X = matrix(3, 10, 10)
 #X = matrix(seq(9, 100*100+8), 100, 100);
-#F = matrix(3, 10, 10)
+#F = matrix(0.1, 10, 10)
 #X = matrix(seq(2, 10*20+1), 10, 20)
 #X = matrix(1.3109348721, 10, 10)
 

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

@@ -29,7 +29,9 @@ rowProds <- function(X) {
 
 X = matrix(3, 10, 10)
 # X = matrix(seq(9, 100*100+8), 100, 100, byrow=TRUE);
+# F = matrix(0.1, 10, 10)
 
 R = rowProds(2*log(X));
+# R = rowProds(X*min(F))
 
 writeMM(as(R,"CsparseMatrix"), paste(args[2], "S", sep=""));

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

@@ -21,9 +21,11 @@
 
 X = matrix(3, 10, 10)
 #X = matrix(seq(9, 100*100+8), 100, 100);
+#F = matrix(0.1, 10, 10)
 
 while(FALSE){}
 
 R = rowProds(2*log(X))
+#R = rowProds(X*min(F))
 
 write(R, $1)