R/ccgraph.R

In beanumber/compgraph: Library for Composite Graphs

#' @title ccgraph
#' @aliases ccgraph.default
#' 
#' @description Instantiate a ccgraph object
#' 
#' @details Class function for collaborative composite graphs 
#' @author Ben Baumer
#' 
#' @param cg A compgraph object
#' @param ... Currently ignored
#' 
#' @return A ccgraph object, or an error
#' 

#' @examples showClass("GameDayPlays")

#' @exportClass ccgraph
#' @export
#' @export ccgraph.default
#' 
#' @examples
#' # Create a ccgraph
#' ccg = ccg.game(10, 0.5, 2, r=0.5, name="myCCG")
#' ccg
#' 
#' 
#' 
#' 

setClass("ccgraph", contains = "compgraph")

ccgraph = function (cg, ctype = "density", ...) UseMethod("ccgraph")

ccgraph.default = function (cg, ctype = "social-density", ...) {
#  args = list(...)
#  cat(str(args))
  if (is.ccg(cg)) {
    class(cg) = c("ccgraph", class(cg))
    cg$ctype = ctype
    return(cg)    
  } else {
    stop("This is not a ccgraph")
  }
}