[Photonics-commits] r327 - in pkg: arrays/data ebeamR/R spectra/R

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

Author: baptiste
Date: 2008-11-02 21:30:53 +0100 (Sun, 02 Nov 2008)
New Revision: 327

Added:
   pkg/arrays/data/asymmetric.rda
Modified:
   pkg/ebeamR/R/polygon.regular.r
   pkg/spectra/R/getIntensity.r
Log:
 

Added: pkg/arrays/data/asymmetric.rda
===================================================================
(Binary files differ)


Property changes on: pkg/arrays/data/asymmetric.rda
___________________________________________________________________
Name: svn:mime-type
   + application/octet-stream

Modified: pkg/ebeamR/R/polygon.regular.r
===================================================================
--- pkg/ebeamR/R/polygon.regular.r	2008-10-22 16:50:24 UTC (rev 326)
+++ pkg/ebeamR/R/polygon.regular.r	2008-11-02 20:30:53 UTC (rev 327)
@@ -37,10 +37,8 @@
 lines (x,y,col=xydc[4]) 
 
 invisible(data.frame(x=x, y=y)) } 
-plot(0,0, t="n", xlim=c(-1, 5))
 
-polygon.regular(c(0, 0, 10, 1), 10)
-polygon.regular(c(1, 0, 10, 1), 3)
-polygon.regular(c(2, 0, 10, 1), 4)
-polygon.regular(c(3, 0, 10, 1), 5)
-polygon.regular(c(4, 0, 10, 1), 6)->test
+
+
+
+

Modified: pkg/spectra/R/getIntensity.r
===================================================================
--- pkg/spectra/R/getIntensity.r	2008-10-22 16:50:24 UTC (rev 326)
+++ pkg/spectra/R/getIntensity.r	2008-11-02 20:30:53 UTC (rev 327)
@@ -1,5 +1,5 @@
 getIntensity <- function(x){
 	
-	x at intensity
+	as.matrix(x at intensity)
 	
 }
\ No newline at end of file