r语言mle只为单边量序列实现