R语言 1.自编函数，实现两个相同维数的矩阵求和。 2.自定义两个矩阵，以检验上述自编求和函数的正确性。（要求自定义矩阵与老师所给的参考示例不同）。

在R语言中，你可以通过以下步骤创建一个自编函数来求解两个相同维度的矩阵求和：

# 定义矩阵加法函数
matrix_add <- function(matrix1, matrix2) {
  # 检查输入是否都是矩阵且维度相同
  if (!is.matrix(matrix1) || !is.matrix(matrix2) || nrow(matrix1) != nrow(matrix2) || ncol(matrix1) != ncol(matrix2)) {
    stop("Both inputs must be matrices of the same dimensions.")
  }
  
  # 矩阵相加
  result <- matrix1 + matrix2
  return(result)
}

# 示例自定义矩阵
matrix1 <- c(1, 2, 3, 4, 5)
matrix2 <- c(6, 7, 8, 9, 10)

# 将向量转换为矩阵
custom_matrix1 <- matrix(matrix1, nrow = 2, ncol = 3)
custom_matrix2 <- matrix(matrix2, nrow = 2, ncol = 3)

# 测试自编函数
sum_custom_matrices <- matrix_add(custom_matrix1, custom_matrix2)
sum_custom_matrices

在这个例子中，`custom_matrix1` 和 `custom_matrix2` 是我们自定义的两个矩阵，用于验证`matrix_add` 函数是否正确计算了它们的和。