r语言求样本协方差矩阵的代码

下面是R语言中求样本协方差矩阵的代码：

# 创建一个样本数据矩阵
x <- matrix(rnorm(100), nrow = 10)

# 求样本协方差矩阵
cov_mat <- cov(x)

# 打印结果
print(cov_mat)

其中，`cov()`函数用于求协方差矩阵，`rnorm()`函数用于生成随机数据。上述代码中，我们生成了一个10行2列的样本数据矩阵`x`，然后用`cov()`函数求出了它的样本协方差矩阵并存储在`cov_mat`变量中，最后打印出了结果。