X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=src%2Ftest%2Fgenerate_test_data%2Fhelpers%2Fcovariance.R;h=09a9ec5b95eb7c8c479c6043838dacb609f5fa51;hb=c202886908a6eff2cd704f910a0bde06be5a0875;hp=15cd6933a5893139f00f928d85f73f4df2cdbbb0;hpb=df3ef2db3d9d01161973a67b4f7d25e1da4d502b;p=valse.git diff --git a/src/test/generate_test_data/helpers/covariance.R b/src/test/generate_test_data/helpers/covariance.R index 15cd693..09a9ec5 100644 --- a/src/test/generate_test_data/helpers/covariance.R +++ b/src/test/generate_test_data/helpers/covariance.R @@ -1,8 +1,8 @@ covariance = function(p,a) { A = matrix(a, p,p) - for (i in 1:p) + for (i in 1:p){ A[i,] = A[i,]^abs(i-(1:p)) - + } return (A) }