findHeadAndTail(LETTERS[4:2], c("D-X","D-C"))
grp1 <- c("C","ACC","CC","B.B","B.BA","B","CA")
pwNa1 <- "B.B-CC"
findHeadAndTail(grp1, pwNa1)
pwNa2 <- c("B.B-CC", "CA-ACC")
findHeadAndTail(grp1, pwNa2)
Run the code above in your browser using DataLab