X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=src%2Ftest%2Fgenerate_test_data%2Fhelpers%2Fcovariance.R;h=09a9ec5b95eb7c8c479c6043838dacb609f5fa51;hp=15cd6933a5893139f00f928d85f73f4df2cdbbb0;hb=c202886908a6eff2cd704f910a0bde06be5a0875;hpb=83ed2c0a1924fe874d0d12f82ad46c42b6ae4e97 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) }