编辑代码

# 创建矩阵 A，元素从 1 到 25，按行排列
A <- matrix(1:25, nrow = 5, byrow = TRUE)
# （1）查看 A 的维度
dim_A <- dim(A)
print(dim_A)

# (2) 计算 A 的转置矩阵 B
B <- t(A)
print(B)

# (3) 计算 A 和 B 的矩阵乘法
AB <- A %*% B
print(AB)

# (4) 横向合并 A 和 B
A_B_horizontal <- cbind(A, B)
print(A_B_horizontal)

# (5) 纵向合并 A 和 B
A_B_vertical <- rbind(A, B)
print(A_B_vertical)