[Vennerable-commits] r26 - pkg/Vennerable/R

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

Author: js229
Date: 2009-08-01 23:55:50 +0200 (Sat, 01 Aug 2009)
New Revision: 26

Modified:
   pkg/Vennerable/R/ChowRuskey.R
Log:
avoid codetools FP

Modified: pkg/Vennerable/R/ChowRuskey.R
===================================================================
--- pkg/Vennerable/R/ChowRuskey.R	2009-08-01 21:54:58 UTC (rev 25)
+++ pkg/Vennerable/R/ChowRuskey.R	2009-08-01 21:55:50 UTC (rev 26)
@@ -315,7 +315,6 @@
 	# then prepare the graph we want to construct
 	#################
 	Weight <- Weights(V)
-	VS <- VennSignature(V) # will be the same as names(regions)
 		
 	
 	angleray <- 2*pi / twok 
@@ -364,7 +363,7 @@
 	for (six in 1:length(names(TD at setList))) {
 		setName <- names(TD at setList)[[six]]
 		sedges <- .face.to.faceEdges(drawing=TD,setName,type="set")
-		setray <- subset(srp.df,SetNumber==six)
+		setray <- srp.df[srp.df$SetNumber==six,]
 		setray <- rbind(setray,setray)
 		for (sex in 1:length(sedges)) {
 			ename <- names(sedges)[sex]