write up the Which Test examples in R