Issue using tapply

Hello all,
? I am trying to use the tapply function to sum some values and change the
column names of the resulting vector.

I input
? ? Emp ?Et
1 ?10565 ACC
2 ? 7515 ADM
3 ? ?625 AGF
4 ? 6243 CNS
5 ?12721 EDU
6 ? 3924 FIN
7 ?18140 HLH
8 ? 3686 INF
9 ?15841 MFG
10 ? 243 MIN
11 ?1864 MNG
12 ?4664 OSV
13 ?5496 PRF
14 ?4988 PUB
15 ?2166 REC
16 ?2153 REL
17 16082 RTL
18 ?3582 TRN
19 ? 757 UTL
20 ?5818 WHL

and i want to aggregate certain types based on the following matches

? ?Et ? ? Em
1 ?AGF AFREMP
2 ?MIN MINEMP
3 ?UTL TCPEMP
4 ?CNS CONEMP
5 ?MFG MFGEMP
6 ?WHL WSTEMP
7 ?RTL RETEMP
8 ?TRN TCPEMP
9 ?INF SVCEMP
10 FIN FINEMP
11 REL FINEMP
12 PRF SVCEMP
13 MNG FINEMP
14 ADM SVCEMP
15 EDU SVCEMP
16 HLH SVCEMP
17 REC SVCEMP
18 ACC SVCEMP
19 RST SVCEMP
20 OSV SVCEMP
21 PUB GVTEMP

but the last value in my result is NA when it should be 5818. so my actual
result is
AFREMP CONEMP FINEMP GVTEMP MFGEMP MINEMP RETEMP SVCEMP TCPEMP WSTEMP
? 625 ? ? ? 6243 ? ? 7941 ? ? ?4988 ? ?15841 ? ? 243 ? ?3582 ? ? 81035
6575 ? ? NA

I have rechecks to make sure there isnt a simple labeling error but i havent
found anything. ?Below is test code.

Et<-c("AGF","MIN","UTL","CNS","MFG","WHL","RTL","TRN","INF","FIN","REL",
"PRF","MNG","ADM","EDU","HLH","REC","ACC","RST","OSV","PUB")

Em<-c("AFREMP","MINEMP","TCPEMP","CONEMP","MFGEMP","WSTEMP","RETEMP","TCPEMP",
"SVCEMP","FINEMP","FINEMP","SVCEMP","FINEMP","SVCEMP","SVCEMP","SVCEMP","SVCEMP",
"SVCEMP","SVCEMP","SVCEMP","GVTEMP")

EtToEm..<-data.frame(Et,Em)

Emp<-c(10565,7515,625,6243,12721,3924,18140,3686,15841,243,1864,4664,5496,4988
,2166,2153,16082,3582,757,5818)

Et.t<-c("ACC","ADM","AGF","CNS","EDU","FIN","HLH","INF","MFG","MIN"
,"MNG","OSV"
,"PRF","PUB","REC","REL","RTL","TRN","UTL","WHL")

Emp.Et<-data.frame(Emp,Et.t)
names(Emp.Et)[2]<-"Et"

Emp.Et.Em<-as.vector(Emp.Et$Em)
names(Emp.Et.Em) <- Emp.Et$Et

EmpEt.Em <- tapply(Emp.Et.Em[EtToEm..$Et], EtToEm..$Em, sum)

--
View this message in context: http://n4.nabble.com/Issue-using-tapply-tp1289681p1289681.html
Sent from the R help mailing list archive at Nabble.com.