ajout tests

[valse.git] / src / test / TEST R / covariance.R

diff --git a/src/test/TEST R/covariance.R b/src/test/TEST R/covariance.R
new file mode 100644 (file)
index 0000000..2dea7f2
--- /dev/null
+++ b/src/test/TEST R/covariance.R
@@ -0,0 +1,9 @@
+covariance= function(p,a){
+  A = matrix(a, p,p)
+  for{i in 1:p}{
+    for{k  in 1:p}{
+      A[i,]= A[i,]^abs(i-k) 
+    }
+  }
+  return(A=A)
+}
\ No newline at end of file