迭代地将R中行的值相乘

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

# 创建一个空的结果矩阵
result <- matrix(0, nrow = nrow(matrix), ncol = ncol(matrix))

# 使用循环迭代地将矩阵中行的值相乘
for (i in 1:nrow(matrix)) {
  result[i, ] <- matrix[i, ] * matrix[i, ]
}

# 打印结果矩阵
print(result)

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

# 使用向量化迭代地将矩阵中行的值相乘
result <- matrix * matrix

# 打印结果矩阵
print(result)