added ReverseThis function to Functions.R