R/utils.R

Defines functions propagateTakensAttr vectorizePar

# importFrom("graphics", "abline", "layout", "legend", "lines", "par", "plot", "plot.new")
# importFrom("stats", "IQR", "as.formula", "dist", "fft", "lm", "median", "rnorm", "runif", "sd", "ts")
#' @importFrom graphics abline layout legend lines par plot plot.new
#' @importFrom stats IQR as.formula dist fft lm median rnorm runif sd ts
NULL

vectorizePar = function(par, N, default=1:N){
  if (is.null(par)) par=default
  if (length(par) < N) par=rep(par,length.out=N)
  par
}
                        

propagateTakensAttr = function(x, takens){
  attr(x, "id") = attr(takens,"id")
  attr(x, "time.lag") = attr(takens, "time.lag")
  attr(x, "embedding.dim") = attr(takens, "embedding.dim")
  x
}

Try the nonlinearTseries package in your browser

Any scripts or data that you put into this service are public.

nonlinearTseries documentation built on May 29, 2017, 8:53 p.m.