[Photonics-commits] r329 - pkg/arrays/man

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

Author: baptiste
Date: 2008-11-18 23:29:05 +0100 (Tue, 18 Nov 2008)
New Revision: 329

Modified:
   pkg/arrays/man/arrays-package.Rd
Log:
clean man

Modified: pkg/arrays/man/arrays-package.Rd
===================================================================
--- pkg/arrays/man/arrays-package.Rd	2008-11-15 12:36:10 UTC (rev 328)
+++ pkg/arrays/man/arrays-package.Rd	2008-11-18 22:29:05 UTC (rev 329)
@@ -29,31 +29,13 @@
 ~~ Optional links to other man pages, e.g. ~~
 ~~ \code{\link[<pkg>:<pkg>-package]{<pkg>}} ~~
 }
-\examples{library(arrays)
-library(RColorBrewer)
-
+\examples{
+	library(arrays)
 data(sample1)
 data(sample2)
-my.cols <- palette(brewer.pal(8,"Set1"))
 names(sample1)
 names(sample2)
 levels(sample2$disorder)
 
-### constant volume ###
-comp.pitch <- 540# 
-cond.1 <- quote(size %in% c(3, 4) &  dose == "2" & pitch == comp.pitch) 
-
-cond.volume <- bquote((polarisation == "long") &  .(cond.1) )
-cond.volume2 <- bquote((polarisation == "short") & .(cond.1) )
-
-
-par(bty="o",mar=c(4.5,5,1,1))
-plotSubSample.E(sample1,cond.volume,col=my.cols,xlim=c(480,920),lwd=2 ,lty=1)->spectra
-plotSubSample.E(sample1,cond.volume2,col=my.cols,xlim=c(480,920),lwd=2 ,lty=2,add=TRUE)->spectra2
-legend("topleft",lwd=c(5,5,1,1),lty=c(1,1,1,2),col=rep(1:2,2),legend=c("AR 5:6","AR 1:2","long axis","short axis"),bty="n",inset=0.01)
-segments(1.46*comp.pitch,0,1.46*comp.pitch,max(spectra),col=grey(0.5),lty=2)
-segments(1.46*comp.pitch/sqrt(2),0,1.46*comp.pitch/sqrt(2), max(spectra2),col=grey(0.5),lty=3)
-
 }
 
-}