PDXRugger 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
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)
Pr
2 matches
Mail list logo