fix comments.

Author: Sun Rui

pkg/R/RDD.R

@@ -1384,6 +1384,7 @@ setMethod("top",
 #' @param op An associative function for the folding operation.
 #' @return The folding result.
 #' @rdname fold
+#' @seealso reduce
 #' @export
 #' @examples
 #'\dontrun{
@@ -1413,6 +1414,7 @@ setMethod("fold",
 #' @param combOp A function to aggregate results of seqOp.
 #' @return The aggregation result.
 #' @rdname aggregateRDD
+#' @seealso reduce
 #' @export
 #' @examples
 #'\dontrun{

pkg/inst/tests/test_rdd.R

@@ -311,7 +311,7 @@ test_that("fold() on RDDs", {
   expect_equal(actual, 0)
 })
 
-test_that("aggregate() on RDDs", {
+test_that("aggregateRDD() on RDDs", {
   rdd <- parallelize(sc, list(1, 2, 3, 4))
   zeroValue <- list(0, 0)
   seqOp <- function(x, y) { list(x[[1]] + y, x[[2]] + 1) }

pkg/man/aggregateRDD.Rd

@@ -37,4 +37,7 @@ combOp <- function(x, y) { list(x[[1]] + y[[1]], x[[2]] + y[[2]]) }
 aggregateRDD(rdd, zeroValue, seqOp, combOp) # list(10, 4)
 }
 }
+\seealso{
+reduce
+}
 

pkg/man/fold.Rd

@@ -31,4 +31,7 @@ rdd <- parallelize(sc, list(1, 2, 3, 4, 5))
 fold(rdd, 0, "+") # 15
 }
 }
+\seealso{
+reduce
+}