[Vennerable-commits] r71 - pkg/Vennerable/inst/doc

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

Author: js229
Date: 2009-10-08 21:12:42 +0200 (Thu, 08 Oct 2009)
New Revision: 71

Modified:
   pkg/Vennerable/inst/doc/Euler3Sets.Rnw
Log:


Modified: pkg/Vennerable/inst/doc/Euler3Sets.Rnw
===================================================================
--- pkg/Vennerable/inst/doc/Euler3Sets.Rnw	2009-10-08 13:09:22 UTC (rev 70)
+++ pkg/Vennerable/inst/doc/Euler3Sets.Rnw	2009-10-08 19:12:42 UTC (rev 71)
@@ -43,6 +43,7 @@
 How many distinct zero-patterns are there, allowing set relabelling?
 
 <<>>=
+library(Vennerable)
 library(xtable)
 vs <- expand.grid(A=c(0,1),B=c(0,1),C=c(0,1))
 vs$VS <- apply(data.matrix(vs[,1:3]),1,paste,collapse="")
@@ -123,10 +124,22 @@
 })
 names(E3List) <- Ehave$VS
 
+efails <- sapply(names(E3List),function(x) {
+	V <- Venn(Weight=E3List[[x]],SetNames=LETTERS[1:3])
+	res <- try(compute.Venn(V))
+	if (inherits(res,"try-error")) {
+		tres <- TRUE
+	} else {
+		grid.newpage()
+		plot(res)
+		tres <- FALSE
+	}
+	tres
+})
+names(efails) <- names(E3List)
 
-V <- Venn(Weight=E3List[["0000001"]],SetNames=LETTERS[1:3])
-C3 <- try(compute.Venn(V))
-}
+efails[efails]
+
 @
 
 \cite{edwards:2004}