projects
/
valse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
15cd6933a5893139f00f928d85f73f4df2cdbbb0
[valse.git]
/
src
/
test
/
generate_test_data
/
helpers
/
covariance.R
1
covariance = function(p,a)
2
{
3
A = matrix(a, p,p)
4
for (i in 1:p)
5
A[i,] = A[i,]^abs(i-(1:p))
6
7
return (A)
8
}