Differences

This shows you the differences between two versions of the page.

--- haplotype_distance_between_within_populations_and_groups [2008/01/22 11:35] – heidi
+++ haplotype_distance_between_within_populations_and_groups [2008/07/22 13:31] (current) – external edit 127.0.0.1
@@ Line 18: / Line 18: @@
 n <- 1
-DistanceMatrix <- as.matrix(scan("D:/Heidi/Master/R_Daten/HaplotypeDistance/HapDistanceMatrix_betweenPop.txt", what=double(0), skip=x, nlines=1, nmax=n))
+DistanceMatrix <- as.matrix(scan("D:/Heidi/Master/R_Daten/HaplotypeDistance/
+                        HapDistanceMatrix_betweenPop.txt", what=double(0), skip=x, nlines=1, nmax=n))
 DistanceMatrix <- cbind(DistanceMatrix, matrix(NA, ncol=Columns, nrow=1))
 DistanceMatrix <- DistanceMatrix[,1:Columns]
@@ Line 26: / Line 27: @@
 while(n<(Row+1)){
-  nextrow <- as.matrix(scan("D:/Heidi/Master/R_Daten/HaplotypeDistance/HapDistanceMatrix_betweenPop.txt", what=double(0), skip=x, nlines=1, nmax=n))
+  nextrow <- as.matrix(scan("D:/Heidi/Master/R_Daten/HaplotypeDistance/
+                       HapDistanceMatrix_betweenPop.txt", what=double(0), skip=x, nlines=1, nmax=n))
   nextrow <- cbind(t(nextrow), matrix(NA, ncol=Columns, nrow=1))
   nextrow <- nextrow[,1:Columns]