Nothing
#' @export
pma <-
function(x,i,n){
ts<-cbind(x[,1],x[,i])
ts<-cbind(ts,rep(NA,length(x[,1])))
for (a in ((n/2+0.5):(length(x[,1])+0.5-(n/2)))) {
ts[a,3] = mean(ts[(a-(n/2)+1):(a+(n/2)),2],na.rm=T)
}
return(ts)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.