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

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

Author: js229
Date: 2009-10-09 18:39:35 +0200 (Fri, 09 Oct 2009)
New Revision: 75

Added:
   pkg/Vennerable/tests/bug00002CW1.R
Log:


Added: pkg/Vennerable/tests/bug00002CW1.R
===================================================================
--- pkg/Vennerable/tests/bug00002CW1.R	                        (rev 0)
+++ pkg/Vennerable/tests/bug00002CW1.R	2009-10-09 16:39:35 UTC (rev 75)
@@ -0,0 +1,28 @@
+library(Vennerable)
+Weight<- c(0,0,0,0,0,0,0,1)
+names(Weight) <- c("000","001","010","011","100","101","110","111")
+
+V00000001 <- Venn(Weight=Weight,SetNames=LETTERS[1:3])
+
+undebug(addSetToDrawing )
+(compute.Venn(V00000001 ))
+
+Weight <- c(0,0,0,1,0,1,0,1)
+names(Weight) <- c("000","001","010","011","100","101","110","111")
+V00000111 <- Venn(Weight=Weight,SetNames=LETTERS[1:3])
+(compute.Venn(V00000111 ))
+
+Weight <- c(0,1,0,0,0,0,0,1)
+names(Weight) <- c("000","001","010","011","100","101","110","111")
+V0001001<- Venn(Weight=Weight,SetNames=LETTERS[1:3])
+plot(compute.Venn(V0001001))
+
+Weight <- c(0,1,0,0,0,0,1,0)
+names(Weight) <- c("000","001","010","011","100","101","110","111")
+V0011000<- Venn(Weight=Weight,SetNames=LETTERS[1:3])
+plot(compute.Venn(V0011000))
+
+Weight <- c(0,1,1,0,0,1,0,0)
+names(Weight) <- c("000","001","010","011","100","101","110","111")
+V01100100<- Venn(Weight=Weight,SetNames=LETTERS[1:3])
+try(compute.Venn(V01100100))