输出离差阵的代码 r语言

下面是输出离差阵的 R 语言代码：

# 假设有一个数据集 df。
# 使用 scale() 函数计算 df 的每一列的离差值。
df_scaled <- scale(df)
# 根据 df_scaled，使用 cor() 函数计算相关系数矩阵。
df_corr <- cor(df_scaled)
# 再次使用 scale() 函数计算 df_corr 的每一列的离差值，得到所需的离差阵。
df_cov <- scale(df_corr)
# 输出离差阵
df_cov