R/gr_createObj.R

In gremes: Estimation of Tail Dependence in Graphical Models

# don't export the generic

createObj<- function(obj,...)
{
  UseMethod("createObj", obj)
}


#' @export
createObj.default<- function(obj, data,...)
{
  #creating a GTree object as default method
  myobj<- GTree(obj$graph, Data = data)
  return(myobj)
}






#' @export
createObj.HRMBG<- function(obj, data)
{
  myobj<- BlockGraph(obj$graph, data)
  return(myobj)
}