我有一个字母和日期的数据框:
Dates <- data.frame(X = c("A", "B", "C", "D"), Y = c("1/1/1988","1/1/2000","11/1/1996", "2/1/1990"))
Dates$Y <- as.Date(Dates$Y, "%m/%d/%Y")
我正在尝试将此数据框转换为对称矩阵,其中矩阵中的值是所有可能字母组合的日期之间的绝对差(以年为单位)。所以输出看起来像这样:
Output <- matrix(c(0, 12.01, 8.84, 12.01, 0, 3.17, 8.84, 3.17, 0), nrow=3, ncol=3,
dimnames = list(c("A", "B", "C"),
c("A", "B", "C")))
非常感谢您!