##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (x){aa.count<-table(factor(x,levels=levels(SEQINR.UTIL$CODON.AA$L)))[c("D","E","C","Y","H","K","R")]}