09a9ec5b95eb7c8c479c6043838dacb609f5fa51
[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 }