Commit ffbdf53e by Eric Coissac

Remove debug print from the code

parent 858281d8
...@@ -86,9 +86,6 @@ simulate_correlation <- function(reference, p, r2, equal_var = TRUE) { ...@@ -86,9 +86,6 @@ simulate_correlation <- function(reference, p, r2, equal_var = TRUE) {
rot <- svd.YX$v %*% t(svd.YX$u) rot <- svd.YX$v %*% t(svd.YX$u)
rotr <- svd.YX$u %*% t(svd.YX$v) rotr <- svd.YX$u %*% t(svd.YX$v)
print(rot)
print(rotr)
new = ((reference %*% rot) * sqrt(r2) + new = ((reference %*% rot) * sqrt(r2) +
noise * sqrt(1 - r2)) %*% rotr noise * sqrt(1 - r2)) %*% rotr
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment