R/AllGenerics.R

## Generic methods
mat2adj.default <- function(x,...){
  stop("Wrong input, data.frame or matrix is required")
}
setGeneric("mat2adj",mat2adj.default)

## g2adj.default <- function(x,...){
##   Adj <- as.matrix(apply(x,2,as.numeric))
##   diag(Adj) <- 0
##   ll <- transfmat(Adj)
##   return(ll)
## }
## setGeneric("g2adj",g2adj.default)


## Lap.default <- function(x,...){
##   D <- apply(x,2,sum)
##   L <- -x
##   diag(L) <- D
##   return(L)
## }
## setGeneric("Lap",Lap.default)

## Lap.default <- function(x,...){
##   D <- apply(x,2,sum)
##   return((D * diag(dim(x)[1])) - x)
## }


## ipsen.default <- function(object,...){
##   warning("Not the correct input")
## }
## setGeneric("ipsen",ipsen.default)

## hamming.default <- function(object,...){
##   warning("Not the correctinput!")
## }
## setGeneric("hamming",hamming.default)

## him.default <- function(object,...){
##   warning("Not a correct input object!")
## }
## setGeneric("him",him.default)
MPBA/nettools documentation built on May 7, 2019, 2:05 p.m.