[R] creating selection vector with 2 attributes

[PDXRugger]

Please consider the following:

Puma=c(702, 702, 701, 702, 701, 702, 701, 702 ,702 ,702 ,701 ,702, 702, 701
,701, 702, 701 ,702, 702, 702,701, 702 ,702 ,702 ,701)
PumaNums=c(100 , 200 , 300 , 400 , 500 , 600 , 701 , 702 , 800 , 900 ,1000
,1101, 1102, 1200 ,1301 ,1302 ,1303, 1304, 1305, 1306,
1307 ,1308 ,1309 ,1310 ,1311 ,1312 ,1313)

PumaNames<-c("Northeast",
"NorthCentral",
"Southeast",
"Deschutes",
"NorthCoast",
"BentonLinn",
"Lane",
"Eugene",
"CoosCurryJosephine",
"Jackson",
"Douglas",
"Salem",
"Marion",
"PolkYamhill",
"Portland",
"Portland",
"Portland",
"Portland",
"Portland",
"Portland",
"ClackamasMultnomah",
"Portland",
"Portland",
"Portland",
"Washington",
"Portland",
"Portland")

PumsAreaNames=data.frame(PumaNums,PumaNames)

HhSerialno<-c( 38 , 71 , 80, 100, 100 ,106, 126 ,152 ,157 ,181 ,182 ,210
,244, 267 ,296 ,361, 387, 399, 430 ,434 ,468 ,480 ,483 ,486 ,532)

Hhdata<-data.frame(HhSerialno,Puma)

 IsEugene <- Hhdata$Puma %in%
PumsAreaNames..$PumaNums[(PumsAreaNames..$PumaNames == "Eugene")]
 
#------------------------------------------

Is Eugene returns a true/false for whether the Hhdata$Puma attribute matches
'Eugene".  I would also like it to associate the serial number but not in a
dataframe form but rather like the following:

 FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE  
FALSE 
9995828 9995840 9995843 9996259 9996287 9996375 9996581 9996724 9996796
9997176 
  FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE  
FALSE 
9997492 9997546 9997664 9997924 9998062 9998073 9998216 9998682 9998691
9998721 
  FALSE   FALSE   FALSE   FALSE   FALSE   FALSE    TRUE   FALSE   FALSE  
FALSE 
9998740 9999082 9999198 9999331 9999390 9999805 9999811 
  FALSE   FALSE   FALSE   FALSE   FALSE   FALSE   FALSE 

Where the numerics are the serial number.  The reason  i am having trouble
is that i am using some existing code and the desired above is what is
returned form the original code and the new code returns just the logical
values.  I have done the obvious and made sure my data is in the correct
format which it is so i am wondering if i can just figure out how to move to
what i need.  Thanks everyone.

JR
-- 
View this message in context: http://www.nabble.com/creating-selection-vector-with-2-attributes-tp24909595p24909595.html
Sent from the R help mailing list archive at Nabble.com.