### R代码来自Vignette Source'Bayseq.rnw'############################################################# ###代码块编号1：