The R Project SVN – R – Diff – /trunk/src/library/base/man/maxCol.Rd

   New York: Springer (4th ed).
+}
 \seealso{\code{\link{which.max}} for vectors.
+}
 \examples{
-table(mc <- max.col(swiss))# mostly "1" and "5", 5 x "2" and once "4"
+table(mc <- max.col(swiss))  # mostly "1" and "5", 5 x "2" and once "4"
-swiss[unique(print(mr <- max.col(t(swiss)))) , ] # 3 33 45 45 33 6
+swiss[unique(print(mr <- max.col(t(swiss)))) , ]  # 3 33 45 45 33 6
-set.seed(1)# reproducible example:
+set.seed(1)  # reproducible example:
 (mm <- rbind(x = round(2*stats::runif(12)),
              y = round(5*stats::runif(12)),
              z = round(8*stats::runif(12))))
 \dontrun{
   [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
 z    2    3    0    3    7    3    4    5    4     1     7     5
+}
 ## column indices of all row maxima :
 utils::str(lapply(1:3, function(i) which(mm[i,] == max(mm[i,]))))
 max.col(mm) ; max.col(mm) # "random"
-max.col(mm, "first")# -> 4 6 5
+max.col(mm, "first") # -> 4 6 5
-max.col(mm, "last") # -> 7 9 11
+max.col(mm, "last")  # -> 7 9 11
 \dontshow{
 stopifnot(max.col(mm, "first") == c(4, 6, 5),
-          max.col(mm, "last")  == c(7, 9,11))
+          max.col(mm, "last")  == c(7, 9, 11))
+}
+}
 \keyword{utilities}
 \keyword{array}

The R Project SVN R