R/checkIfAnyRmTs.R

Defines functions checkIfAnyRmTs

Documented in checkIfAnyRmTs

checkIfAnyRmTs <-
function(action = NULL, envirName = KTSEnv) {
  if (class(KTSEnv$dSList$TS) == "character" & 
      class(KTSEnv$dSList$rm) == "character") {
    eval(call(action), envir = envirName)
  } else {
    if (is.null(KTSEnv$dSList$TS)) {
      tcltk::tkmessageBox(message = paste("There is no time series",
                                          "in the environment"),
                          icon = "warning")
      loadAllTypes()
    }
    if (is.null(KTSEnv$dSList$rm)) {
      tcltk::tkmessageBox(message = paste("There is no recurrence",
                                          "matrix in the environment"), 
                          icon = "warning")
      loadAllTypes()
    }
  }
}

Try the KarsTS package in your browser

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

KarsTS documentation built on Jan. 16, 2021, 5:07 p.m.