Differences

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

--- allelic_size_range [2007/12/21 13:30] – heidi
+++ allelic_size_range [2008/09/23 14:54] (current) – heidi
@@ Line 31: / Line 31: @@
 **code:**
 <code>
-read.table("D:/Heidi/Master/R_Daten/AllelicSizeRange/AllelicSizeRange_mic.txt",
+read.table("D:/Master/R_Daten/AllelicSizeRange/AllelicSizeRange_mic.txt", skip=4 ,row.names=1, fill=TRUE )-> Data
-            skip=4, row.names=1, fill=TRUE )-> Data
 a <- nrow(Data)
@@ Line 45: / Line 44: @@
 x <- 1
-plot(Data[x,], type="l", xlab="Population", ylab="Allelic size",
+plot(Data[x,], type="l", xlab="Population", ylab="Allelic size", main="Allelic size range at different loci",
-     main="Allelic size range at different loci", ylim=c(0,(max(Data)+(max(Data)/4))),
+     ylim=c(0,(max(Data)+(max(Data)/4))), xaxt="n", col=1, lwd=1.5 )
-     xaxt="n", col=x, lwd=1.5)
     x <- x + 1
@@ Line 55: / Line 53: @@
     }
     axis(1, 1:nCol)
-    legendlegend("topright", legend=c("Locus:", (1:(x-1))), lty=1, bty="n", col=c(0:x), lwd=1.5)
+    legend("topright", legend=c(1:(x-1)), lty=1, bty="n", col=c(1:x), lwd=1.5, title="Locus")
 </code>