Merge pull request #8 from nbaxter13/patch-1

fixed problem with transposed upper triangle in read.dist

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
     }
   }