如何将Spearman Rho stat附加到新对象？

Question

我正在执行许多spearman的等级相关性，我想自动生成所有Rho估计值的列表。

以下是一些示例数据：

A <- data.frame('Area' = c(4, 6, 5),
                'flow' = c(1, 1, 1))
B <- data.frame('Area' = c(6, 8, 4),
                'flow' = c(1, 2, 1))
files <- list(A, B)
frames <- list('A', 'B')

我目前有以下代码，用于对列表中的每个数据帧进行关联：

lapply(files, function (x)
    cor.test(~flow + Area, data = x, method = 'spearman'))

但是，我想做的是在此添加另一行以提取每个相关性的Rho估计并将其附加到新列表中。

我该怎么做？