Thanks, Arun. I will study this as soon as possible. I really appreciate your
time and R mentoring.
________________________________________
Try this:
res1<-sapply(vec3,function(x) length(vec2New[grep(x,vec2New)]) )
dat1<-data.frame(res1,Name=names(vec3))
dat1$Name<-factor(dat1$Name,levels=c("early","mid","late","wknd"))
with(dat1,tapply(res1,list(Name),FUN=sum))
#early mid late wknd
# 0 1 4 6
#or
sapply(split(res1,names(vec3)),sum)
#early late mid wknd
# 0 4 1 6
A.K.
______________________________________________
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.
