[Vennerable-commits] r24 - in pkg/Vennerable: . tests

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

Author: js229
Date: 2009-08-01 23:54:05 +0200 (Sat, 01 Aug 2009)
New Revision: 24

Added:
   pkg/Vennerable/tests/
   pkg/Vennerable/tests/bug0521JuneAprilMay.R
   pkg/Vennerable/tests/bug0528twocircles.R
Log:


Added: pkg/Vennerable/tests/bug0521JuneAprilMay.R
===================================================================
--- pkg/Vennerable/tests/bug0521JuneAprilMay.R	                        (rev 0)
+++ pkg/Vennerable/tests/bug0521JuneAprilMay.R	2009-08-01 21:54:05 UTC (rev 24)
@@ -0,0 +1,7 @@
+library(Vennerable)
+setList <- strsplit(month.name,split="")
+names(setList) <- month.name
+Vempty2 <- VennFromSets( setList[c(4,5,11)])
+plot(Vempty2)
+
+ 

Added: pkg/Vennerable/tests/bug0528twocircles.R
===================================================================
--- pkg/Vennerable/tests/bug0528twocircles.R	                        (rev 0)
+++ pkg/Vennerable/tests/bug0528twocircles.R	2009-08-01 21:54:05 UTC (rev 24)
@@ -0,0 +1,12 @@
+library(Vennerable)
+centre.xy <- c(0,-2)
+VDC1b <- newTissueFromCircle(centre.xy,radius=2,Set=1,nodes=4)
+VDC2b <- newTissueFromCircle(centre.xy+c(0,3),radius=1,Set=2)
+TN2b <- (addSetToDrawing(VDC1b,VDC2b))
+TN2b
+.validateDrawing(TN2b)
+ 
+ 
+ 
+
+