Added mmseq.R, including polyclass function