http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/BinUaggChain_Col.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/BinUaggChain_Col.R b/src/test/scripts/functions/binary/matrix/BinUaggChain_Col.R index 674ee3a..31e2d26 100644 --- a/src/test/scripts/functions/binary/matrix/BinUaggChain_Col.R +++ b/src/test/scripts/functions/binary/matrix/BinUaggChain_Col.R @@ -1,32 +1,32 @@ -#------------------------------------------------------------- -# -# 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 / rowSums(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 <- A / rowSums(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/binary/matrix/CentralMoment.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/CentralMoment.R b/src/test/scripts/functions/binary/matrix/CentralMoment.R index fa33986..34ee2dd 100644 --- a/src/test/scripts/functions/binary/matrix/CentralMoment.R +++ b/src/test/scripts/functions/binary/matrix/CentralMoment.R @@ -1,36 +1,36 @@ -#------------------------------------------------------------- -# -# 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") -library("moments") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -order = as.integer(args[2]); - -s = moment(A, order, central=TRUE); -m = as.matrix(s); - -writeMM(as(m, "CsparseMatrix"), paste(args[3], "R", 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") +library("moments") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +order = as.integer(args[2]); + +s = moment(A, order, central=TRUE); +m = as.matrix(s); + +writeMM(as(m, "CsparseMatrix"), paste(args[3], "R", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/Covariance.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/Covariance.R b/src/test/scripts/functions/binary/matrix/Covariance.R index 199fcf1..2aab811 100644 --- a/src/test/scripts/functions/binary/matrix/Covariance.R +++ b/src/test/scripts/functions/binary/matrix/Covariance.R @@ -1,36 +1,36 @@ -#------------------------------------------------------------- -# -# 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") -library("moments") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -s = cov(A, B); -m = as.matrix(s); - -writeMM(as(m, "CsparseMatrix"), paste(args[2], "R", 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") +library("moments") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +s = cov(A, B); +m = as.matrix(s); + +writeMM(as(m, "CsparseMatrix"), paste(args[2], "R", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplication.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplication.R b/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplication.R index 315169e..ebf7909 100644 --- a/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplication.R +++ b/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplication.R @@ -1,38 +1,38 @@ -#------------------------------------------------------------- -# -# 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -if( ncol(B)==1 ){ - C = as.matrix(diag(as.vector(A %*% B))); -} else{ - C = as.matrix(diag(A %*% B)); -} - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +if( ncol(B)==1 ){ + C = as.matrix(diag(as.vector(A %*% B))); +} else{ + C = as.matrix(diag(A %*% B)); +} + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplicationTranspose.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplicationTranspose.R b/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplicationTranspose.R index fc0d59d..cef1f35 100644 --- a/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplicationTranspose.R +++ b/src/test/scripts/functions/binary/matrix/DiagMatrixMultiplicationTranspose.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = diag(A %*% t(B)); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = diag(A %*% t(B)); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/ElementwiseModulusTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/ElementwiseModulusTest.dml b/src/test/scripts/functions/binary/matrix/ElementwiseModulusTest.dml index 1029ced..27ca7c0 100644 --- a/src/test/scripts/functions/binary/matrix/ElementwiseModulusTest.dml +++ b/src/test/scripts/functions/binary/matrix/ElementwiseModulusTest.dml @@ -1,27 +1,27 @@ -#------------------------------------------------------------- -# -# 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. -# -#------------------------------------------------------------- - -# junit test class: org.apache.sysml.test.integration.functions.binary.matrix.ElementwiseModulusTest.java - -A = read("$$indir$$a", rows=$$rows$$, cols=$$cols$$, format="text"); -B = read("$$indir$$b", rows=$$rows$$, cols=$$cols$$, format="text"); -C = A %% B; +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +# junit test class: org.apache.sysml.test.integration.functions.binary.matrix.ElementwiseModulusTest.java + +A = read("$$indir$$a", rows=$$rows$$, cols=$$cols$$, format="text"); +B = read("$$indir$$b", rows=$$rows$$, cols=$$cols$$, format="text"); +C = A %% B; write(C, "$$outdir$$c", format="text"); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/ElementwiseModulusVariableDimensionsTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/ElementwiseModulusVariableDimensionsTest.dml b/src/test/scripts/functions/binary/matrix/ElementwiseModulusVariableDimensionsTest.dml index 487242f..30f09be 100644 --- a/src/test/scripts/functions/binary/matrix/ElementwiseModulusVariableDimensionsTest.dml +++ b/src/test/scripts/functions/binary/matrix/ElementwiseModulusVariableDimensionsTest.dml @@ -1,27 +1,27 @@ -#------------------------------------------------------------- -# -# 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. -# -#------------------------------------------------------------- - -# junit test class: org.apache.sysml.test.integration.functions.binary.matrix.ElementwiseModulusTest.java - -A = read("$$indir$$a", rows=$$rows1$$, cols=$$cols1$$, format="text"); -B = read("$$indir$$b", rows=$$rows2$$, cols=$$cols2$$, format="text"); -C = A %% B; +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +# junit test class: org.apache.sysml.test.integration.functions.binary.matrix.ElementwiseModulusTest.java + +A = read("$$indir$$a", rows=$$rows1$$, cols=$$cols1$$, format="text"); +B = read("$$indir$$b", rows=$$rows2$$, cols=$$cols2$$, format="text"); +C = A %% B; write(C, "$$outdir$$c", format="text"); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/IQM.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/IQM.R b/src/test/scripts/functions/binary/matrix/IQM.R index 06aacc4..ed15d6a 100644 --- a/src/test/scripts/functions/binary/matrix/IQM.R +++ b/src/test/scripts/functions/binary/matrix/IQM.R @@ -1,43 +1,43 @@ -#------------------------------------------------------------- -# -# 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=""))) - -m = nrow(A); -S = sort(A) -q25d=m*0.25 -q75d=m*0.75 -q25i=ceiling(q25d) -q75i=ceiling(q75d) -iqm = sum(S[(q25i+1):q75i]) -iqm = iqm + (q25i-q25d)*S[q25i] - (q75i-q75d)*S[q75i] -iqm = iqm/(m*0.5) - -miqm = as.matrix(iqm); - -writeMM(as(miqm, "CsparseMatrix"), paste(args[3], "R", 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=""))) + +m = nrow(A); +S = sort(A) +q25d=m*0.25 +q75d=m*0.75 +q25i=ceiling(q25d) +q75i=ceiling(q75d) +iqm = sum(S[(q25i+1):q75i]) +iqm = iqm + (q25i-q25d)*S[q25i] - (q75i-q75d)*S[q75i] +iqm = iqm/(m*0.5) + +miqm = as.matrix(iqm); + +writeMM(as(miqm, "CsparseMatrix"), paste(args[3], "R", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/MapMultChain.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/MapMultChain.R b/src/test/scripts/functions/binary/matrix/MapMultChain.R index b5124a1..65354b6 100644 --- a/src/test/scripts/functions/binary/matrix/MapMultChain.R +++ b/src/test/scripts/functions/binary/matrix/MapMultChain.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") - -X <- readMM(paste(args[1], "X.mtx", sep="")) -v <- readMM(paste(args[1], "v.mtx", sep="")) - -R = (t(X) %*% (X %*% v)); - -writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", 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") + +X <- readMM(paste(args[1], "X.mtx", sep="")) +v <- readMM(paste(args[1], "v.mtx", sep="")) + +R = (t(X) %*% (X %*% v)); + +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/binary/matrix/MapMultChainWeights.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/MapMultChainWeights.R b/src/test/scripts/functions/binary/matrix/MapMultChainWeights.R index e9c8d3e..63e8d08 100644 --- a/src/test/scripts/functions/binary/matrix/MapMultChainWeights.R +++ b/src/test/scripts/functions/binary/matrix/MapMultChainWeights.R @@ -1,35 +1,35 @@ -#------------------------------------------------------------- -# -# 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") - -X <- readMM(paste(args[1], "X.mtx", sep="")) -v <- readMM(paste(args[1], "v.mtx", sep="")) -w <- readMM(paste(args[1], "w.mtx", sep="")) - -R = (t(X) %*% (w*(X %*% v))); - -writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", 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") + +X <- readMM(paste(args[1], "X.mtx", sep="")) +v <- readMM(paste(args[1], "v.mtx", sep="")) +w <- readMM(paste(args[1], "w.mtx", sep="")) + +R = (t(X) %*% (w*(X %*% v))); + +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/binary/matrix/MapMultChainWeights2.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/MapMultChainWeights2.R b/src/test/scripts/functions/binary/matrix/MapMultChainWeights2.R index 2c7320d..d0daf06 100644 --- a/src/test/scripts/functions/binary/matrix/MapMultChainWeights2.R +++ b/src/test/scripts/functions/binary/matrix/MapMultChainWeights2.R @@ -1,35 +1,35 @@ -#------------------------------------------------------------- -# -# 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") - -X <- readMM(paste(args[1], "X.mtx", sep="")) -v <- readMM(paste(args[1], "v.mtx", sep="")) -w <- readMM(paste(args[1], "w.mtx", sep="")) - -R = t(X) %*% ((X %*% v)-w); - -writeMM(as(R, "CsparseMatrix"), paste(args[2], "R", 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") + +X <- readMM(paste(args[1], "X.mtx", sep="")) +v <- readMM(paste(args[1], "v.mtx", sep="")) +w <- readMM(paste(args[1], "w.mtx", sep="")) + +R = t(X) %*% ((X %*% v)-w); + +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/binary/matrix/MapMultLimitTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/MapMultLimitTest.dml b/src/test/scripts/functions/binary/matrix/MapMultLimitTest.dml index e9827eb..e9c0628 100644 --- a/src/test/scripts/functions/binary/matrix/MapMultLimitTest.dml +++ b/src/test/scripts/functions/binary/matrix/MapMultLimitTest.dml @@ -1,31 +1,31 @@ -#------------------------------------------------------------- -# -# 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. -# -#------------------------------------------------------------- - -A = read($1); -B1 = read($2); -B2 = read($3); - -C1 = A %*% B1; -C2 = A %*% B2; - -write(C1, $4); -write(C2, $5); - +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +A = read($1); +B1 = read($2); +B2 = read($3); + +C1 = A %*% B1; +C2 = A %*% B2; + +write(C1, $4); +write(C2, $5); + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/MatrixVectorMultiplication.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/MatrixVectorMultiplication.R b/src/test/scripts/functions/binary/matrix/MatrixVectorMultiplication.R index 991e9cc..9f5d6aa 100644 --- a/src/test/scripts/functions/binary/matrix/MatrixVectorMultiplication.R +++ b/src/test/scripts/functions/binary/matrix/MatrixVectorMultiplication.R @@ -1,36 +1,36 @@ -#------------------------------------------------------------- -# -# 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") - -A1 <- readMM(paste(args[1], "A.mtx", sep="")) -A <- as.matrix(A1); -x1 <- readMM(paste(args[1], "x.mtx", sep="")) -x <- as.matrix(x1); - -y <- A%*%x; - -writeMM(as(y, "CsparseMatrix"), paste(args[2], "y", 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") + +A1 <- readMM(paste(args[1], "A.mtx", sep="")) +A <- as.matrix(A1); +x1 <- readMM(paste(args[1], "x.mtx", sep="")) +x <- as.matrix(x1); + +y <- A%*%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/binary/matrix/Median.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/Median.R b/src/test/scripts/functions/binary/matrix/Median.R index 41c1c16..0cf2c31 100644 --- a/src/test/scripts/functions/binary/matrix/Median.R +++ b/src/test/scripts/functions/binary/matrix/Median.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=""))) - -s = median(A); -m = as.matrix(s); - -writeMM(as(m, "CsparseMatrix"), paste(args[3], "R", 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=""))) + +s = median(A); +m = as.matrix(s); + +writeMM(as(m, "CsparseMatrix"), paste(args[3], "R", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/OuterProduct.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/OuterProduct.R b/src/test/scripts/functions/binary/matrix/OuterProduct.R index b1cdbb8..72d270d 100644 --- a/src/test/scripts/functions/binary/matrix/OuterProduct.R +++ b/src/test/scripts/functions/binary/matrix/OuterProduct.R @@ -1,41 +1,41 @@ -#------------------------------------------------------------- -# -# 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") - -#note: we use matrix here, becase Matrix created out-of-memory issues -# 'Cholmod error 'out of memory' at file ../Core/cholmod_memory.c, line 147' -# however, R still fails with 'Error: cannot allocate vector of size 3.0 Gb' - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- A %*% B; -#C <- A %o% B; - -cmin <- min(C); - -writeMM(as(cmin, "CsparseMatrix"), paste(args[2], "C", 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") + +#note: we use matrix here, becase Matrix created out-of-memory issues +# 'Cholmod error 'out of memory' at file ../Core/cholmod_memory.c, line 147' +# however, R still fails with 'Error: cannot allocate vector of size 3.0 Gb' + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- A %*% B; +#C <- A %o% B; + +cmin <- min(C); + +writeMM(as(cmin, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/Quantile.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/Quantile.R b/src/test/scripts/functions/binary/matrix/Quantile.R index 39c1446..1997456 100644 --- a/src/test/scripts/functions/binary/matrix/Quantile.R +++ b/src/test/scripts/functions/binary/matrix/Quantile.R @@ -1,35 +1,35 @@ -#------------------------------------------------------------- -# -# 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=""))) -p = as.double(args[2]); - -s = quantile(A, p); -m = as.matrix(s); - -writeMM(as(m, "CsparseMatrix"), paste(args[3], "R", 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=""))) +p = as.double(args[2]); + +s = quantile(A, p); +m = as.matrix(s); + +writeMM(as(m, "CsparseMatrix"), paste(args[3], "R", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/ScalarModulusTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/ScalarModulusTest.dml b/src/test/scripts/functions/binary/matrix/ScalarModulusTest.dml index ceaa003..12468ce 100644 --- a/src/test/scripts/functions/binary/matrix/ScalarModulusTest.dml +++ b/src/test/scripts/functions/binary/matrix/ScalarModulusTest.dml @@ -1,40 +1,40 @@ -#------------------------------------------------------------- -# -# 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. -# -#------------------------------------------------------------- - -# junit test class: org.apache.sysml.test.integration.functions.binary.matrix.ScalarModulusTest.java - -$$vardeclaration$$ - -Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text"); -VectorLeft = Vector %% $$divisor$$; -write(VectorLeft, "$$outdir$$vector_left", format="text"); - -Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text"); -VectorRight = $$dividend$$ %% Vector; -write(VectorRight, "$$outdir$$vector_right", format="text"); - -Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text"); -MatrixLeft = Matrix %% $$divisor$$; -write(MatrixLeft, "$$outdir$$matrix_left", format="text"); - -Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text"); -MatrixRight = $$dividend$$ %% Matrix; +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +# junit test class: org.apache.sysml.test.integration.functions.binary.matrix.ScalarModulusTest.java + +$$vardeclaration$$ + +Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text"); +VectorLeft = Vector %% $$divisor$$; +write(VectorLeft, "$$outdir$$vector_left", format="text"); + +Vector = read("$$indir$$vector", rows=$$rows$$, cols=1, format="text"); +VectorRight = $$dividend$$ %% Vector; +write(VectorRight, "$$outdir$$vector_right", format="text"); + +Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text"); +MatrixLeft = Matrix %% $$divisor$$; +write(MatrixLeft, "$$outdir$$matrix_left", format="text"); + +Matrix = read("$$indir$$matrix", rows=$$rows$$, cols=$$cols$$, format="text"); +MatrixRight = $$dividend$$ %% Matrix; write(MatrixRight, "$$outdir$$matrix_right", format="text"); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplication.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplication.R b/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplication.R index 8b73634..bfc621a 100644 --- a/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplication.R +++ b/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplication.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = t(A) %*% B; - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = t(A) %*% B; + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.R b/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.R index 7fbcb68..c94535c 100644 --- a/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.R +++ b/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = -t(A) %*% B; - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = -t(A) %*% B; + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.dml b/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.dml index c9f9c22..a31e1bf 100644 --- a/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.dml +++ b/src/test/scripts/functions/binary/matrix/TransposeMatrixMultiplicationMinus.dml @@ -1,27 +1,27 @@ -#------------------------------------------------------------- -# -# 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. -# -#------------------------------------------------------------- - -A = read($1, rows=$2, cols=$3, format="text"); -B = read($4, rows=$5, cols=$6, format="text"); - -C = -t(A) %*% B; - -write(C, $7, format="text"); +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +A = read($1, rows=$2, cols=$3, format="text"); +B = read($4, rows=$5, cols=$6, format="text"); + +C = -t(A) %*% B; + +write(C, $7, format="text"); http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChain.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChain.R b/src/test/scripts/functions/binary/matrix/UaggOuterChain.R index 846e11c..c7e9f3a 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChain.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChain.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = rowSums(outer(A,B,"<")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = rowSums(outer(A,B,"<")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainColSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainColSums.R index f8b9cf1..fbfbd10 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainColSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainColSums.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- t(as.matrix(colSums(outer(A,B,"<")))); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- t(as.matrix(colSums(outer(A,B,"<")))); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainEquals.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainEquals.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainEquals.R index dda255c..b14e7b0 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainEquals.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainEquals.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = rowSums(outer(A,B,"==")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = rowSums(outer(A,B,"==")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsColSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsColSums.R index bc07ef8..b948c1d 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsColSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsColSums.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- t(as.matrix(colSums(outer(A,B,"==")))); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- t(as.matrix(colSums(outer(A,B,"==")))); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsSums.R index 6c5237e..57d2d86 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainEqualsSums.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = sum(outer(A,B,"==")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = sum(outer(A,B,"==")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainGreater.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreater.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreater.R index d5f803d..ff310ab 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreater.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreater.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = rowSums(outer(A,B,">")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = rowSums(outer(A,B,">")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterColSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterColSums.R index 847febe..6238bb9 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterColSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterColSums.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- t(as.matrix(colSums(outer(A,B,">")))); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- t(as.matrix(colSums(outer(A,B,">")))); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEquals.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEquals.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEquals.R index 713f3d3..3d73686 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEquals.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEquals.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = rowSums(outer(A,B,">=")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = rowSums(outer(A,B,">=")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEqualsColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEqualsColSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEqualsColSums.R index 7a02c6f..0ab7ee2 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEqualsColSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainGreaterEqualsColSums.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- t(as.matrix(colSums(outer(A,B,">=")))); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- t(as.matrix(colSums(outer(A,B,">=")))); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEquals.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEquals.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEquals.R index 4292d08..5aa68d8 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEquals.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEquals.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = rowSums(outer(A,B,"<=")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = rowSums(outer(A,B,"<=")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEqualsColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEqualsColSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEqualsColSums.R index bc743db..e8e65aa 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEqualsColSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainLessEqualsColSums.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- t(as.matrix(colSums(outer(A,B,"<=")))); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- t(as.matrix(colSums(outer(A,B,"<=")))); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEquals.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEquals.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEquals.R index 4875faa..7edb245 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEquals.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEquals.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = rowSums(outer(A,B,"!=")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = rowSums(outer(A,B,"!=")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEqualsColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEqualsColSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEqualsColSums.R index 2aea9d5..13ca5ad 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEqualsColSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainNotEqualsColSums.R @@ -19,17 +19,17 @@ # #------------------------------------------------------------- - -args <- commandArgs(TRUE) -options(digits=22) - -library("Matrix") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C <- t(as.matrix(colSums(outer(A,B,"!=")))); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); - - + +args <- commandArgs(TRUE) +options(digits=22) + +library("Matrix") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C <- t(as.matrix(colSums(outer(A,B,"!=")))); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); + + http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/binary/matrix/UaggOuterChainSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/binary/matrix/UaggOuterChainSums.R b/src/test/scripts/functions/binary/matrix/UaggOuterChainSums.R index 2065bef..1d8a95a 100644 --- a/src/test/scripts/functions/binary/matrix/UaggOuterChainSums.R +++ b/src/test/scripts/functions/binary/matrix/UaggOuterChainSums.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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) - -C = sum(outer(A,B,"<")); - -writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", 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 <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))) + +C = sum(outer(A,B,"<")); + +writeMM(as(C, "CsparseMatrix"), paste(args[2], "C", sep="")); +
