EMGrank + typo
[valse.git] / src / test / generate_test_data / helpers / covariance.R
index 15cd693..09a9ec5 100644 (file)
@@ -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)
 }