Update HMMcopy.R