add check for autoregression in R code;internal func summary_trace

add check for autoregression in R code;internal func summary_trace #471