fix memory leaks on EMGLLF, test OK for EMGrank

[valse.git] / src / test / generate_test_data / helpers / covariance.R

covariance = function(p,a)
{
    A = matrix(a, p,p)
    for (i in 1:p){
        A[i,] = A[i,]^abs(i-(1:p))
    }
    return (A)
}