tests/bug06492CEuler.R

In js229/Vennerable: Venn and Euler area-proportional diagrams

library(Vennerable)
setList <- strsplit(month.name,split="")
names(setList) <- month.name
Vmonth3 <- VennFromSets( setList[1:3])
Vmonth2 <- Vmonth3[,c("January","February"),]
Vmonth2.no01 <- Vmonth2
Weights(Vmonth2.no01)["01"] <- 0
V <- Vmonth2.no01
#debug(remove.nonintersectionpoints)
C2 <- compute.Venn(V,doWeights=FALSE,doEuler=TRUE,type="circles")