PartialAutoCorr=function(TimeSeries , nLags=2 ,PlotIt=FALSE,...){
res1=pacf(TimeSeries, lag.max = nLags,
plot = PlotIt, na.action = na.fail,...)
return(invisible(res1))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.