Update convertPedigree.R

tweak commenting
R-Computing-Lab · May 1, 2024 · 764bd0e · 764bd0e
1 parent 9446650
commit 764bd0e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/convertPedigree.R b/R/convertPedigree.R
@@ -170,10 +170,14 @@ ped2com <- function(ped, component,
     cat("Doing tcrossprod\n")
   }
   if(tcross.alt.crossprod){
-    cat("Doing alt tcrossprod crossprod t \n")
+    if (verbose){
+      cat("Doing alt tcrossprod crossprod t \n")
+      }
     r <-    crossprod(t(as.matrix(r2)))
     }else if(tcross.alt.star){
+    if (verbose){
 	  cat("Doing alt tcrossprod %*% t \n")
+    }
      r <-       r2 %*% t(as.matrix(r2))
   }else{
      r <- Matrix::tcrossprod(r2)