jim holtman schrieb: > Try this: > > >> key <- rownames(a) >> key[key == "AT"] <- "TA" >> do.call(rbind, by(a, key, colSums)) >> something like paste(sort(strsplit(key, split="")[[1]]), "") might be more general.