如何在一个循环中选择最大元素的情况下在r中编写一个双for循环？

# 创建一个示例矩阵
matrix <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 2)

# 初始化最大值为矩阵中的第一个元素
max_value <- matrix[1, 1]

# 初始化最大值的索引
max_row <- 1
max_col <- 1

# 双for循环遍历矩阵中的每个元素
for (i in 1:nrow(matrix)) {
  for (j in 1:ncol(matrix)) {
    # 如果当前元素大于最大值，则更新最大值和索引
    if (matrix[i, j] > max_value) {
      max_value <- matrix[i, j]
      max_row <- i
      max_col <- j
    }
  }
}

# 输出最大值和索引
cat("最大值:", max_value, "\n")
cat("最大值的行索引:", max_row, "\n")
cat("最大值的列索引:", max_col, "\n")