Hi there, It may not be so ellegant, but you can try:
PrsnData<-data.frame(cbind(PrsnSerialno,PrsnAge,IsHead)) PrsnData.subset<-subset(PrsnData, PrsnSerialno %in% HhSerialno) PrsnData.subset PrsnData.subset.maxage<-aggregate(PrsnData.subset["PrsnAge"], list(PrsnData.subset$PrsnSerialno), max) PrsnData.subset.maxage bests milton On Tue, Aug 4, 2009 at 2:25 PM, PDXRugger <j_r...@hotmail.com> wrote: > > Please consider the following inputs: > > PrsnSerialno<-c(735,1147,2019,4131,4131,4217,4629,4822,4822,5979,5979,6128,6128,7004,7004, > > 7004,7004,7004,7438,7438,9402,9402,9402,10115,10115,11605,12693,12693,12693) > > > PrsnAge<-c(59,48,42,24,24,89,60,43,47,57,56,76,76,66,70,14,7,3,62,62,30,10,7,20,21,50,53,44,29) > > > IsHead<-c(TRUE,TRUE,TRUE,TRUE,FALSE,TRUE,TRUE,FALSE,TRUE,TRUE,FALSE,TRUE,FALSE,FALSE,TRUE,FALSE,FALSE, > FALSE,TRUE,FALSE,TRUE,FALSE,FALSE,FALSE,TRUE,FALSE,TRUE,FALSE,FALSE) > > PrsnData<-cbind(PrsnSerialno,PrsnAge,IsHead) > > > HhSerialno<-c(735,1147,2019,4131,4217,4629,4822,5979,6128,7004,7438,9402,10115,11605,12693) > HhData<-cbind(HhSerialno) > > What i would like to do is to add a age column to HhData that would > correspond to the serial number and which is also the oldest person in the > house, or what corresponds to "TRUE"(designates oldest person). The TRUE > false doesnt have to be considered but is preferable. > > The result would then be: > HhSerialno HhAge > 735 59 > 1147 48 > 2019 42 > 4131 24 > 4217 89 > 4629 60 > 4822 47 > 5979 57 > 6128 76 > 7004 70 > 7438 62 > 9402 30 > 10115 21 > 11605 50 > 12693 53 > > I tried > PumsHh..$Age<-PumsPrsn[PumsPrsn$SERIALNO==PumsHh..$Serialno,PumsPrsn$AGE] > but becaseu teh data frames are of different length it doesnt work so im > unsure of another way of doing this. Thanks in advance > > JR > > -- > View this message in context: > http://www.nabble.com/Referencing-columns-and-pulling-selected-data-tp24813802p24813802.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html> > and provide commented, minimal, self-contained, reproducible code. > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
