5. 读取Rdata新中d2.1中的数据，计算d2.1中数值型变量的均值和协差阵；将读取的数据命名为A, 并用write.table存储A为文件：A.txt

在R语言中，你可以按照以下步骤操作：

1. 首先，你需要确保你已经安装了"data.table"包，因为"data"文件通常是"data.table"格式的。如果没有，可以使用`install.packages("data.table")`来安装。

2. 然后，使用` fread()` 或者 `read.table()` 函数（推荐 fread() 因为效率更高）来读取"data.d2.1"文件，假设它的完整路径是"data/d2.1.RData"。假设文件中有数值型变量，例如 "var1", "var2", ..., "varN"：

   library(data.table)  # 加载data.table包
   d2_1 <- fread("data/d2.1.RData")

3. 接下来，计算数值型变量的均值，可以使用`mean()`函数，并指定变量名列表，如：

   numeric_means <- mean(d2_1[, c("var1", "var2", ..., "varN")])

4. 计算协方差矩阵，需要使用 `cov()` 函数，同样基于数值型变量：

   numeric_covariance <- cov(d2_1[, c("var1", "var2", ..., "varN")])

5. 将计算结果存储为数据框 `A`:

   A <- data.frame(mean=numeric_means, covariance=numeric_covariance)

6. 最后，使用 `write.table()` 函数将 `A` 数据框保存为文本文件 "A.txt"，注意指定完整的文件路径：

   write.table(A, file="path/to/A.txt", row.names=FALSE, quote=FALSE, sep="\t")  # 使用"\t"分隔，可以根据需求调整

记得替换上述代码中的 "..." 和 "path/to/" 为实际的变量名和文件路径。