R/mkPower.R

In cops: Cluster Optimized Proximity Scaling

Defines functions mkPower

Documented in mkPower

#' Take matrix to a power 
#'
#' @param x matrix
#' @param r numeric (power)
#' @return a matrix
mkPower<-function(x,r) {
    n<-nrow(x)
    tmp <- abs((x+diag(n))^r)-diag(n)
    return(tmp)
}

Try the cops package in your browser