##---- 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)))sum(AA.weight*aa.count[2:21])/1000}