在R中，找到每个子测试的相关矩阵

# 创建一个包含子测试数据的数据框
subtest1 <- c(1, 2, 3, 4, 5)
subtest2 <- c(2, 4, 6, 8, 10)
subtest3 <- c(3, 6, 9, 12, 15)
subtest4 <- c(4, 8, 12, 16, 20)

data <- data.frame(subtest1, subtest2, subtest3, subtest4)

# 计算相关矩阵
cor_matrix <- cor(data)

# 打印相关矩阵
print(cor_matrix)