apply函数是效率极高的函数，尤其在对大矩阵进行运算时尤其高效。
# 创建一个矩阵
matrix_data <- matrix(1:9, nrow = 3, byrow = TRUE)
print("Original Matrix:")
print(matrix_data)
# 使用 apply 函数对每一行求和
row_sums <- apply(matrix_data, 1, sum)
print("Sum of each row:")
print(row_sums)
# 使用 apply 函数对每一列求和
column_sums <- apply(matrix_data, 2, sum)
print("Sum of each column:")
print(column_sums)
发表评论