Add code to allow testing the basic hmm functions from R