. Acor:
data.frame :
UpperT <- Acor[upper.tri(Acor, diag = TRUE)]
n <- dim(Acor)[[1]]
Row <- unlist(lapply(seq_len(n), FUN = seq_len))
Column <- rep(seq_len(n), seq_len(n))
Df <- data.frame(UpperT, Row, Column)
, :
set.seed(24)
A <- matrix(rnorm(25, 5, 2), ncol = 5)
Acor <- cor(A)
> Acor
[,1] [,2] [,3] [,4] [,5]
[1,] 1.0000000 0.3398424 0.8876580 0.2582569 -0.5699901
[2,] 0.3398424 1.0000000 0.5897580 -0.7416699 0.2502752
[3,] 0.8876580 0.5897580 1.0000000 -0.1631381 -0.2101108
[4,] 0.2582569 -0.7416699 -0.1631381 1.0000000 -0.8067492
[5,] -0.5699901 0.2502752 -0.2101108 -0.8067492 1.0000000
:
> Df
UpperT Row Column
1 1.0000000 1 1
2 0.3398424 1 2
3 1.0000000 2 2
4 0.8876580 1 3
5 0.5897580 2 3
6 1.0000000 3 3
7 0.2582569 1 4
8 -0.7416699 2 4
9 -0.1631381 3 4
10 1.0000000 4 4
11 -0.5699901 1 5
12 0.2502752 2 5
13 -0.2101108 3 5
14 -0.8067492 4 5
15 1.0000000 5 5