[adegenet-commits] r233 - in www: files images

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2009-01-25 15:50:59 +0100 (Sun, 25 Jan 2009)
New Revision: 233

Added:
   www/files/.RData
   www/files/.Rhistory
   www/files/adegenet_1.2-2.tgz
   www/files/adegenet_1.2-2.zip
   www/files/evolution.R
Modified:
   www/images/evolAdegenetEng.png
Log:
binaries of 1.2-2; updated evolution pict ure.


Added: www/files/.RData
===================================================================
(Binary files differ)


Property changes on: www/files/.RData
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: www/files/.Rhistory
===================================================================
--- www/files/.Rhistory	                        (rev 0)
+++ www/files/.Rhistory	2009-01-25 14:50:59 UTC (rev 233)
@@ -0,0 +1,73 @@
+ls()
+dat <- read.table("evolution.R",sep="\t")
+dat <- read.table(file="evolution.R",sep="\t")
+dat <- read.table(file="evolution.txt",sep="\t")
+dat <- read.table(file="evolution.txt")
+dat
+dat <- read.table(file="evolution.txt", head=T)
+dat
+plot(dat$Functions, type="b", col="blue", lwd=2)
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet")
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet", ylim=c(0,110))
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2)
+par(lend=2_
+par(lend=2)
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2)
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2, cex=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2, cex=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2, cex=2)
+par(lend=2)
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet", ylim=c(0,110),cex=2)
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2, cex=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2, cex=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2, cex=2)
+legend("topleft", pch=c(1,3,5, lwd=1, lab=c("Functions","Manpages","Datasets")))
+legend("topleft", pch=c(1,3,5), lwd=1, lab=c("Functions","Manpages","Datasets"))
+legend("topleft", pch=c(1,3,5), lwd=1, leg=c("Functions","Manpages","Datasets"))
+legend("topleft", pch=c(1,3,5), lwd=1, leg=c("Functions","Manpages","Datasets"), col=c("blue", "red", "orange"))
+legend("topleft", pch=c(1,3,5), lwd=2, leg=c("Functions","Manpages","Datasets"), col=c("blue", "red", "orange"))
+text(2.5,60, "Formal (S4) \nclasses", font=2)
+text(2.5,55, "Formal (S4) \nclasses", font=2)
+text(5.5,85, "Different ploidy \nlevels", font=2)
+axis(at=1:nrow(dat), lab=dat$Version)
+dat <- read.table(file="evolution.txt", head=T)
+par(lend=2)
+## plots
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet", ylim=c(0,110))
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2)
+## annot/legend
+legend("topleft", pch=c(1,3,5), lwd=2, leg=c("Functions","Manpages","Datasets"), col=c("blue", "red", "orange"))
+text(2.5,55, "Formal (S4) \nclasses", font=2)
+text(5.5,85, "Different ploidy \nlevels", font=2)
+axis(at=1:nrow(dat), lab=dat$Version)
+axis(side=1, at=1:nrow(dat), lab=dat$Version)
+pdf(file="~/Destop/adegenetEvol.pdf")
+dat <- read.table(file="evolution.txt", head=T)
+par(lend=2)
+## plots
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet", ylim=c(0,110))
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2)
+## annot/legend
+legend("topleft", pch=c(1,3,5), lwd=2, leg=c("Functions","Manpages","Datasets"), col=c("blue", "red", "orange"))
+text(2.5,55, "Formal (S4) \nclasses", font=2)
+text(5.5,85, "Different ploidy \nlevels", font=2)
+## axis
+axis(side=1, at=1:nrow(dat), lab=dat$Version)
+dev.off()
+pdf(file="~/Desktop/adegenetEvol.pdf")
+dat <- read.table(file="evolution.txt", head=T)
+par(lend=2)
+## plots
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet", ylim=c(0,110))
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2)
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2)
+## annot/legend
+legend("topleft", pch=c(1,3,5), lwd=2, leg=c("Functions","Manpages","Datasets"), col=c("blue", "red", "orange"))
+text(2.5,55, "Formal (S4) \nclasses", font=2)
+text(5.5,85, "Different ploidy \nlevels", font=2)
+## axis
+axis(side=1, at=1:nrow(dat), lab=dat$Version)
+dev.off()

Added: www/files/adegenet_1.2-2.tgz
===================================================================
(Binary files differ)


Property changes on: www/files/adegenet_1.2-2.tgz
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: www/files/adegenet_1.2-2.zip
===================================================================
(Binary files differ)


Property changes on: www/files/adegenet_1.2-2.zip
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Added: www/files/evolution.R
===================================================================
--- www/files/evolution.R	                        (rev 0)
+++ www/files/evolution.R	2009-01-25 14:50:59 UTC (rev 233)
@@ -0,0 +1,26 @@
+pdf(file="~/Desktop/adegenetEvol.pdf")
+
+dat <- read.table(file="evolution.txt", head=T)
+
+par(lend=2)
+
+## plots
+plot(dat$Functions, type="b", col="blue", lwd=2, xaxt="n",xlab="Versions",ylab="Number of items", main="Evolution of adegenet", ylim=c(0,110))
+
+points(dat$DocSize, type="b", pch=3, col="red", lwd=2)
+
+points(dat$Datasets, type="b", pch=5, col="orange", lwd=2)
+
+## annot/legend
+legend("topleft", pch=c(1,3,5), lwd=2, leg=c("Functions","Manpages","Datasets"), col=c("blue", "red", "orange"))
+
+text(2.5,55, "Formal (S4) \nclasses", font=2)
+
+text(5.5,85, "Different ploidy \nlevels", font=2)
+
+## axis
+axis(side=1, at=1:nrow(dat), lab=dat$Version)
+
+
+
+dev.off()

Modified: www/images/evolAdegenetEng.png
===================================================================
(Binary files differ)