From d169fc76511cb5a79ed107a08aed47c6ed9dd565 Mon Sep 17 00:00:00 2001
From: Niel <nbaxter13@gmail.com>
Date: Tue, 6 Dec 2016 15:54:41 -0500
Subject: [PATCH] fixed problem with transposed upper triangle

---
 R/read.dist.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/read.dist.R b/R/read.dist.R
index 8a89beb..ed9c68e 100644
--- a/R/read.dist.R
+++ b/R/read.dist.R
@@ -18,7 +18,7 @@ read.dist <- function(file, input='lt', make.square=T, diag=0){
       c<-c+i #this because math
     }
     if(make.square){
-      m[upper.tri(m)] <- m[lower.tri(m)] #fills in upper triangle
+      m[upper.tri(m)] <- t(m)[upper.tri(m)] #fills in upper triangle
     }
   }