[Vennerable-commits] r56 - pkg/Vennerable/tests

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

Author: js229
Date: 2009-09-17 01:08:45 +0200 (Thu, 17 Sep 2009)
New Revision: 56

Added:
   pkg/Vennerable/tests/bug0649no10.R
Log:
test for bugfix

Added: pkg/Vennerable/tests/bug0649no10.R
===================================================================
--- pkg/Vennerable/tests/bug0649no10.R	                        (rev 0)
+++ pkg/Vennerable/tests/bug0649no10.R	2009-09-16 23:08:45 UTC (rev 56)
@@ -0,0 +1,15 @@
+library(Vennerable)
+setList <- strsplit(month.name,split="")
+names(setList) <- month.name
+VN3 <- VennFromSets( setList[1:3])
+V2 <- VN3[,c("January","February"),]
+V2.no10 <- V2
+Weights(V2.no10)["10"] <- 0
+
+#debug(joinEdgesInDrawing)
+C2 <- compute.Venn(V2.no10,doWeights=FALSE,doEuler=TRUE,type="circles")
+
+V2.no01 <- V2
+Weights(V2.no01)["01"] <- 0
+C2 <- compute.Venn(V2.no01,doWeights=FALSE,doEuler=TRUE,type="circles")
+