fix hmm-pimh.R