R/mel.r

In hysteresis: Tools for Modeling Rate-Dependent Hysteretic Processes and Ellipses

Defines functions mel

Documented in mel

mel <- function(method=1,seed=NULL,...) {
if (!is.null(seed)) set.seed(seed)
if (method==1)
  ans <- mel1(...)
  else if (method==2)
    ans <- mel2(...)
  else if (method==3)
    ans <- mel3(...)
    else ans <- mel4(...)
ans
}

Try the hysteresis package in your browser