http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/AllMin.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/AllMin.R b/src/test/scripts/functions/aggregate/AllMin.R index e67ca08..827e4a7 100644 --- a/src/test/scripts/functions/aggregate/AllMin.R +++ b/src/test/scripts/functions/aggregate/AllMin.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(min(A)); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(min(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file
http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/AllProd.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/AllProd.R b/src/test/scripts/functions/aggregate/AllProd.R index b4c9907..a87a12c 100644 --- a/src/test/scripts/functions/aggregate/AllProd.R +++ b/src/test/scripts/functions/aggregate/AllProd.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(prod(A)); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(prod(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/AllSum.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/AllSum.R b/src/test/scripts/functions/aggregate/AllSum.R index 7f979c1..0ed03d9 100644 --- a/src/test/scripts/functions/aggregate/AllSum.R +++ b/src/test/scripts/functions/aggregate/AllSum.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(sum(A)); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(sum(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/ColMaxs.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/ColMaxs.R b/src/test/scripts/functions/aggregate/ColMaxs.R index 2c3ea32..e0dce9b 100644 --- a/src/test/scripts/functions/aggregate/ColMaxs.R +++ b/src/test/scripts/functions/aggregate/ColMaxs.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) - -if(!("matrixStats" %in% rownames(installed.packages()))){ - install.packages("matrixStats") -} - -library("Matrix") -library("matrixStats") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- t(colMaxs(A)); - +#------------------------------------------------------------- +# +# 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) + +if(!("matrixStats" %in% rownames(installed.packages()))){ + install.packages("matrixStats") +} + +library("Matrix") +library("matrixStats") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- t(colMaxs(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/ColMeans.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/ColMeans.R b/src/test/scripts/functions/aggregate/ColMeans.R index 80226f9..e59b06b 100644 --- a/src/test/scripts/functions/aggregate/ColMeans.R +++ b/src/test/scripts/functions/aggregate/ColMeans.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- t(colMeans(A)); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- t(colMeans(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/ColMins.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/ColMins.R b/src/test/scripts/functions/aggregate/ColMins.R index 80b0f02..5177529 100644 --- a/src/test/scripts/functions/aggregate/ColMins.R +++ b/src/test/scripts/functions/aggregate/ColMins.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) - -if(!("matrixStats" %in% rownames(installed.packages()))){ - install.packages("matrixStats") -} - -library("Matrix") -library("matrixStats") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- t(colMins(A)); - +#------------------------------------------------------------- +# +# 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) + +if(!("matrixStats" %in% rownames(installed.packages()))){ + install.packages("matrixStats") +} + +library("Matrix") +library("matrixStats") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- t(colMins(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/ColSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/ColSums.R b/src/test/scripts/functions/aggregate/ColSums.R index 0f3e6e2..459108b 100644 --- a/src/test/scripts/functions/aggregate/ColSums.R +++ b/src/test/scripts/functions/aggregate/ColSums.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- t(colSums(A)); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- t(colSums(A)); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/DiagSum.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/DiagSum.R b/src/test/scripts/functions/aggregate/DiagSum.R index 5dc92ac..04b37c5 100644 --- a/src/test/scripts/functions/aggregate/DiagSum.R +++ b/src/test/scripts/functions/aggregate/DiagSum.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(sum(diag(A))); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(sum(diag(A))); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/GroupedAggregate.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/GroupedAggregate.R b/src/test/scripts/functions/aggregate/GroupedAggregate.R index 34d4e28..63acceb 100644 --- a/src/test/scripts/functions/aggregate/GroupedAggregate.R +++ b/src/test/scripts/functions/aggregate/GroupedAggregate.R @@ -1,61 +1,61 @@ -#------------------------------------------------------------- -# -# 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") -library("moments") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))); -fn = as.integer(args[2]); - -if( fn==0 ) -{ - C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=sum)[,2] -} - -if( fn==1 ) -{ - C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=length)[,2] -} - -if( fn==2 ) -{ - C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=mean)[,2] -} - -if( fn==3 ) -{ - C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=var)[,2] -} - -if( fn==4 ) -{ - C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=moment, order=3, central=TRUE)[,2] -} - -if( fn==5 ) -{ - C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=moment, order=4, central=TRUE)[,2] -} - +#------------------------------------------------------------- +# +# 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") +library("moments") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))); +fn = as.integer(args[2]); + +if( fn==0 ) +{ + C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=sum)[,2] +} + +if( fn==1 ) +{ + C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=length)[,2] +} + +if( fn==2 ) +{ + C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=mean)[,2] +} + +if( fn==3 ) +{ + C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=var)[,2] +} + +if( fn==4 ) +{ + C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=moment, order=3, central=TRUE)[,2] +} + +if( fn==5 ) +{ + C = aggregate(as.vector(A), by=list(as.vector(B)), FUN=moment, order=4, central=TRUE)[,2] +} + writeMM(as(C, "CsparseMatrix"), paste(args[3], "C", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/GroupedAggregateMatrix.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/GroupedAggregateMatrix.R b/src/test/scripts/functions/aggregate/GroupedAggregateMatrix.R index 76e2d79..d67b978 100644 --- a/src/test/scripts/functions/aggregate/GroupedAggregateMatrix.R +++ b/src/test/scripts/functions/aggregate/GroupedAggregateMatrix.R @@ -1,70 +1,70 @@ -#------------------------------------------------------------- -# -# 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") -library("moments") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))); -fn = as.integer(args[2]); - - -R = matrix(0,17,ncol(A)); -for( j in 1:ncol(A) ) -{ -Ai = A[,j]; - -if( fn==0 ) -{ - C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=sum)[,2] -} - -if( fn==1 ) -{ - C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=length)[,2] -} - -if( fn==2 ) -{ - C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=mean)[,2] -} - -if( fn==3 ) -{ - C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=var)[,2] -} - -if( fn==4 ) -{ - C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=moment, order=3, central=TRUE)[,2] -} - -if( fn==5 ) -{ - C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=moment, order=4, central=TRUE)[,2] -} - -R[,j] = C; -} - +#------------------------------------------------------------- +# +# 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") +library("moments") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))); +fn = as.integer(args[2]); + + +R = matrix(0,17,ncol(A)); +for( j in 1:ncol(A) ) +{ +Ai = A[,j]; + +if( fn==0 ) +{ + C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=sum)[,2] +} + +if( fn==1 ) +{ + C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=length)[,2] +} + +if( fn==2 ) +{ + C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=mean)[,2] +} + +if( fn==3 ) +{ + C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=var)[,2] +} + +if( fn==4 ) +{ + C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=moment, order=3, central=TRUE)[,2] +} + +if( fn==5 ) +{ + C = aggregate(as.vector(Ai), by=list(as.vector(B)), FUN=moment, order=4, central=TRUE)[,2] +} + +R[,j] = C; +} + writeMM(as(R, "CsparseMatrix"), paste(args[3], "C", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/GroupedAggregateWeights.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/GroupedAggregateWeights.R b/src/test/scripts/functions/aggregate/GroupedAggregateWeights.R index 5aa3e63..eea2f94 100644 --- a/src/test/scripts/functions/aggregate/GroupedAggregateWeights.R +++ b/src/test/scripts/functions/aggregate/GroupedAggregateWeights.R @@ -1,71 +1,71 @@ -#------------------------------------------------------------- -# -# 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") -library("moments") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))); -C <- as.matrix(readMM(paste(args[1], "C.mtx", sep=""))); -fn = as.integer(args[2]); - -if( nrow(A)==1 & ncol(A)>1 ){ #row vector - A = t(A); -} - -if( fn==0 ) -{ - #special case weights - D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=sum)[,2] -} - -if( fn==1 ) -{ - #special case weights - D = aggregate(as.vector(C), by=list(as.vector(B)), FUN=sum)[,2] -} - -if( fn==2 ) -{ - #special case weights - D1 = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=sum)[,2] - D2 = aggregate(as.vector(C), by=list(as.vector(B)), FUN=sum)[,2] - D = D1/D2; -} - -if( fn==3 ) -{ - D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=var)[,2] -} - -if( fn==4 ) -{ - D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=moment, order=3, central=TRUE)[,2] -} - -if( fn==5 ) -{ - D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=moment, order=4, central=TRUE)[,2] -} - +#------------------------------------------------------------- +# +# 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") +library("moments") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- as.matrix(readMM(paste(args[1], "B.mtx", sep=""))); +C <- as.matrix(readMM(paste(args[1], "C.mtx", sep=""))); +fn = as.integer(args[2]); + +if( nrow(A)==1 & ncol(A)>1 ){ #row vector + A = t(A); +} + +if( fn==0 ) +{ + #special case weights + D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=sum)[,2] +} + +if( fn==1 ) +{ + #special case weights + D = aggregate(as.vector(C), by=list(as.vector(B)), FUN=sum)[,2] +} + +if( fn==2 ) +{ + #special case weights + D1 = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=sum)[,2] + D2 = aggregate(as.vector(C), by=list(as.vector(B)), FUN=sum)[,2] + D = D1/D2; +} + +if( fn==3 ) +{ + D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=var)[,2] +} + +if( fn==4 ) +{ + D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=moment, order=3, central=TRUE)[,2] +} + +if( fn==5 ) +{ + D = aggregate(as.vector(A*C), by=list(as.vector(B)), FUN=moment, order=4, central=TRUE)[,2] +} + writeMM(as(D, "CsparseMatrix"), paste(args[3], "D", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowIndexMaxs.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowIndexMaxs.R b/src/test/scripts/functions/aggregate/RowIndexMaxs.R index 2104ada..7c058d7 100644 --- a/src/test/scripts/functions/aggregate/RowIndexMaxs.R +++ b/src/test/scripts/functions/aggregate/RowIndexMaxs.R @@ -1,28 +1,28 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- max.col(A,ties.method="last"); +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- max.col(A,ties.method="last"); writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowIndexMins.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowIndexMins.R b/src/test/scripts/functions/aggregate/RowIndexMins.R index 3fa734e..5d317e3 100644 --- a/src/test/scripts/functions/aggregate/RowIndexMins.R +++ b/src/test/scripts/functions/aggregate/RowIndexMins.R @@ -1,28 +1,28 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- max.col(-A,ties.method="last"); +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- max.col(-A,ties.method="last"); writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowIndexMins.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowIndexMins.dml b/src/test/scripts/functions/aggregate/RowIndexMins.dml index f535021..0579aff 100644 --- a/src/test/scripts/functions/aggregate/RowIndexMins.dml +++ b/src/test/scripts/functions/aggregate/RowIndexMins.dml @@ -1,24 +1,24 @@ -#------------------------------------------------------------- -# -# 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 = rowIndexMin(A); -write(B, $4, 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 = rowIndexMin(A); +write(B, $4, format="text"); http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowMaxs.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowMaxs.R b/src/test/scripts/functions/aggregate/RowMaxs.R index 7eb92ab..6e88a56 100644 --- a/src/test/scripts/functions/aggregate/RowMaxs.R +++ b/src/test/scripts/functions/aggregate/RowMaxs.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) - -if(!("matrixStats" %in% rownames(installed.packages()))){ - install.packages("matrixStats") -} - -library("Matrix") -library("matrixStats") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- rowMaxs(A); - +#------------------------------------------------------------- +# +# 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) + +if(!("matrixStats" %in% rownames(installed.packages()))){ + install.packages("matrixStats") +} + +library("Matrix") +library("matrixStats") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- rowMaxs(A); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowMeans.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowMeans.R b/src/test/scripts/functions/aggregate/RowMeans.R index b31c182..6c57537 100644 --- a/src/test/scripts/functions/aggregate/RowMeans.R +++ b/src/test/scripts/functions/aggregate/RowMeans.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- rowMeans(A); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- rowMeans(A); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowMins.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowMins.R b/src/test/scripts/functions/aggregate/RowMins.R index 4c02e56..af77c57 100644 --- a/src/test/scripts/functions/aggregate/RowMins.R +++ b/src/test/scripts/functions/aggregate/RowMins.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) - -if(!("matrixStats" %in% rownames(installed.packages()))){ - install.packages("matrixStats") -} - -library("Matrix") -library("matrixStats") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- rowMins(A); - +#------------------------------------------------------------- +# +# 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) + +if(!("matrixStats" %in% rownames(installed.packages()))){ + install.packages("matrixStats") +} + +library("Matrix") +library("matrixStats") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- rowMins(A); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/aggregate/RowSums.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/aggregate/RowSums.R b/src/test/scripts/functions/aggregate/RowSums.R index 37c6f06..592d5ec 100644 --- a/src/test/scripts/functions/aggregate/RowSums.R +++ b/src/test/scripts/functions/aggregate/RowSums.R @@ -1,29 +1,29 @@ -#------------------------------------------------------------- -# -# 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") - -A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) -B <- rowSums(A); - +#------------------------------------------------------------- +# +# 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") + +A <- as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) +B <- rowSums(A); + writeMM(as(B, "CsparseMatrix"), paste(args[2], "B", sep="")); \ No newline at end of file http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/AppendChainTest.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/AppendChainTest.R b/src/test/scripts/functions/append/AppendChainTest.R index 32a3507..caea086 100644 --- a/src/test/scripts/functions/append/AppendChainTest.R +++ b/src/test/scripts/functions/append/AppendChainTest.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") - -A1=readMM(paste(args[1], "A.mtx", sep="")) -A = as.matrix(A1); -B1=readMM(paste(args[1], "B1.mtx", sep="")) -B1 = as.matrix(B1); -B2=readMM(paste(args[1], "B2.mtx", sep="")) -B2 = as.matrix(B2); -C=cbind2(A, B1) -C=cbind2(C, B2) -writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), 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. +# +#------------------------------------------------------------- + +args <- commandArgs(TRUE) +options(digits=22) +library("Matrix") + +A1=readMM(paste(args[1], "A.mtx", sep="")) +A = as.matrix(A1); +B1=readMM(paste(args[1], "B1.mtx", sep="")) +B1 = as.matrix(B1); +B2=readMM(paste(args[1], "B2.mtx", sep="")) +B2 = as.matrix(B2); +C=cbind2(A, B1) +C=cbind2(C, B2) +writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/AppendChainTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/AppendChainTest.dml b/src/test/scripts/functions/append/AppendChainTest.dml index 56f75d1..69797c7 100644 --- a/src/test/scripts/functions/append/AppendChainTest.dml +++ b/src/test/scripts/functions/append/AppendChainTest.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") -B1=read($4, rows=$2, cols=$5, format="text") -B2=read($6, rows=$2, cols=$7, format="text") -C=append(A, B1) -C=append(C, B2) -write(C, $8, 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") +B1=read($4, rows=$2, cols=$5, format="text") +B2=read($6, rows=$2, cols=$7, format="text") +C=append(A, B1) +C=append(C, B2) +write(C, $8, format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/AppendMatrixTest.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/AppendMatrixTest.R b/src/test/scripts/functions/append/AppendMatrixTest.R index faba609..4e1902c 100644 --- a/src/test/scripts/functions/append/AppendMatrixTest.R +++ b/src/test/scripts/functions/append/AppendMatrixTest.R @@ -1,30 +1,30 @@ -#------------------------------------------------------------- -# -# 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); -B1=readMM(paste(args[1], "B.mtx", sep="")) -B = as.matrix(B1); -C=cbind2(A, B) -writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), 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. +# +#------------------------------------------------------------- + +args <- commandArgs(TRUE) +options(digits=22) +library("Matrix") +A1=readMM(paste(args[1], "A.mtx", sep="")) +A = as.matrix(A1); +B1=readMM(paste(args[1], "B.mtx", sep="")) +B = as.matrix(B1); +C=cbind2(A, B) +writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/AppendMatrixTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/AppendMatrixTest.dml b/src/test/scripts/functions/append/AppendMatrixTest.dml index f4318b7..219e3c3 100644 --- a/src/test/scripts/functions/append/AppendMatrixTest.dml +++ b/src/test/scripts/functions/append/AppendMatrixTest.dml @@ -1,25 +1,25 @@ -#------------------------------------------------------------- -# -# 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=$2, cols=$5, format="text") -C=append(A, B) -write(C, $6, 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=$2, cols=$5, format="text") +C=append(A, B) +write(C, $6, format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/AppendVectorTest.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/AppendVectorTest.R b/src/test/scripts/functions/append/AppendVectorTest.R index faba609..4e1902c 100644 --- a/src/test/scripts/functions/append/AppendVectorTest.R +++ b/src/test/scripts/functions/append/AppendVectorTest.R @@ -1,30 +1,30 @@ -#------------------------------------------------------------- -# -# 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); -B1=readMM(paste(args[1], "B.mtx", sep="")) -B = as.matrix(B1); -C=cbind2(A, B) -writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), 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. +# +#------------------------------------------------------------- + +args <- commandArgs(TRUE) +options(digits=22) +library("Matrix") +A1=readMM(paste(args[1], "A.mtx", sep="")) +A = as.matrix(A1); +B1=readMM(paste(args[1], "B.mtx", sep="")) +B = as.matrix(B1); +C=cbind2(A, B) +writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/AppendVectorTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/AppendVectorTest.dml b/src/test/scripts/functions/append/AppendVectorTest.dml index 691a56b..9bc5df2 100644 --- a/src/test/scripts/functions/append/AppendVectorTest.dml +++ b/src/test/scripts/functions/append/AppendVectorTest.dml @@ -1,25 +1,25 @@ -#------------------------------------------------------------- -# -# 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=$2, cols=1, format="text") -C=append(A, B) -write(C, $5, 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=$2, cols=1, format="text") +C=append(A, B) +write(C, $5, format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/RBindCBindMatrixTest.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/RBindCBindMatrixTest.R b/src/test/scripts/functions/append/RBindCBindMatrixTest.R index 016d80f..eac2241 100644 --- a/src/test/scripts/functions/append/RBindCBindMatrixTest.R +++ b/src/test/scripts/functions/append/RBindCBindMatrixTest.R @@ -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. -# -#------------------------------------------------------------- - -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(cbind2(t(A), t(B))) - -writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), 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. +# +#------------------------------------------------------------- + +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(cbind2(t(A), t(B))) + +writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/RBindCBindMatrixTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/RBindCBindMatrixTest.dml b/src/test/scripts/functions/append/RBindCBindMatrixTest.dml index edd1080..22f654a 100644 --- a/src/test/scripts/functions/append/RBindCBindMatrixTest.dml +++ b/src/test/scripts/functions/append/RBindCBindMatrixTest.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) -B=read($2) - -C = t(cbind(t(A),t(B))); - -write(C, $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. +# +#------------------------------------------------------------- + +A=read($1) +B=read($2) + +C = t(cbind(t(A),t(B))); + +write(C, $3) http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/RBindMatrixTest.R ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/RBindMatrixTest.R b/src/test/scripts/functions/append/RBindMatrixTest.R index a5950a2..7abb796 100644 --- a/src/test/scripts/functions/append/RBindMatrixTest.R +++ b/src/test/scripts/functions/append/RBindMatrixTest.R @@ -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. -# -#------------------------------------------------------------- - -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=rbind2(A, B) - -writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), 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. +# +#------------------------------------------------------------- + +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=rbind2(A, B) + +writeMM(as(C,"CsparseMatrix"), paste(args[2], "C", sep=""), format="text") http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/RBindMatrixTest.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/RBindMatrixTest.dml b/src/test/scripts/functions/append/RBindMatrixTest.dml index cb06454..8b0dcde 100644 --- a/src/test/scripts/functions/append/RBindMatrixTest.dml +++ b/src/test/scripts/functions/append/RBindMatrixTest.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) -B=read($2) - -C = rbind(A,B); - -write(C, $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. +# +#------------------------------------------------------------- + +A=read($1) +B=read($2) + +C = rbind(A,B); + +write(C, $3) http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/basic_string_append.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/basic_string_append.dml b/src/test/scripts/functions/append/basic_string_append.dml index fca23c5..b4bd889 100644 --- a/src/test/scripts/functions/append/basic_string_append.dml +++ b/src/test/scripts/functions/append/basic_string_append.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. -# -#------------------------------------------------------------- - -s = "# Name Value"; -s = append(s, "A = " + (7 + $1 + 1)); -s = append(s, "B = " + (3 + $1 + 1)); - -print(s); -write(s, $2); +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +s = "# Name Value"; +s = append(s, "A = " + (7 + $1 + 1)); +s = append(s, "B = " + (3 + $1 + 1)); + +print(s); +write(s, $2); http://git-wip-us.apache.org/repos/asf/incubator-systemml/blob/05d2c0a8/src/test/scripts/functions/append/loop_string_append.dml ---------------------------------------------------------------------- diff --git a/src/test/scripts/functions/append/loop_string_append.dml b/src/test/scripts/functions/append/loop_string_append.dml index 934538d..ffc9a1c 100644 --- a/src/test/scripts/functions/append/loop_string_append.dml +++ b/src/test/scripts/functions/append/loop_string_append.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. -# -#------------------------------------------------------------- - -numIter = $1; - -s = "# Name Value"; -for( i in 1:numIter ) -{ - # more than 100 bytes (will throw an error for more than 10000 iterations) - s = append(s, "A["+i+"] = ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ, " +i); -} - -write(s, $2); +#------------------------------------------------------------- +# +# 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. +# +#------------------------------------------------------------- + +numIter = $1; + +s = "# Name Value"; +for( i in 1:numIter ) +{ + # more than 100 bytes (will throw an error for more than 10000 iterations) + s = append(s, "A["+i+"] = ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ, " +i); +} + +write(s, $2);
