R/zzz.R

In MSGARCH: Markov-Switching GARCH Models

loadModule("MSgarch", TRUE)
loadModule("sARCH", TRUE)
loadModule("sGARCH", TRUE)
loadModule("eGARCH", TRUE)
loadModule("gjrGARCH", TRUE)
loadModule("tGARCH", TRUE)
loadModule("Normal", TRUE)
loadModule("Student", TRUE)
loadModule("Ged", TRUE)

#' @importFrom utils getFromNamespace
#' @importFrom utils tail
#' @importFrom stats as.ts 
#' @importFrom stats is.ts 
#' @importFrom stats pnorm
#' @importFrom stats pnorm 
#' @importFrom stats AIC 
#' @importFrom stats BIC 
#' @importFrom methods is
.onAttach <- function(libname, pkgname){
  MSGARCH_env <- as.environment("package:MSGARCH")
  assign(".norm_sym_created", new(Class = getFromNamespace("norm_sym", ns = "MSGARCH")), envir = MSGARCH_env)
  assign(".norm_skew_created", new(Class = getFromNamespace("norm_skew", ns = "MSGARCH")), envir = MSGARCH_env)
  assign(".std_sym_created", new(Class = getFromNamespace("std_sym", ns = "MSGARCH")), envir = MSGARCH_env)
  assign(".std_skew_created", new(Class = getFromNamespace("std_skew", ns = "MSGARCH")), envir = MSGARCH_env)
  assign(".ged_sym_created", new(Class = getFromNamespace("ged_sym", ns = "MSGARCH")), envir = MSGARCH_env)
  assign(".ged_skew_created", new(Class = getFromNamespace("ged_skew", ns = "MSGARCH")), envir = MSGARCH_env)
  




}