Simplify line in unidiff

nalimilan · Dec 9, 2020 · 55e8494 · 55e8494
1 parent c50b6ac
commit 55e8494
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/unidiff.R b/R/unidiff.R
@@ -171,8 +171,7 @@ print.unidiff <- function(x, digits=max(3, getOption("digits") - 4), ...) {
 
   if(length(x$unidiff$phi) > 0) {
       cat("\nLayer intrinsic association coefficients:\n")
-      print(setNames(exp(x$unidiff$layer$qvframe$estimate) * x$unidiff$phi, row.names(x$unidiff$layer$qvframe)),
-            digits=digits, print.gap=2, ...)
+      print(x$unidiff$phi, digits=digits, print.gap=2, ...)
   }
 
   if(x$unidiff$diagonal == "included") {