Commit cc243b94 by Corson N. Areshenkoff

### Rename heatkern.conduction

parent 65bea38b
 ... ... @@ -51,7 +51,7 @@ heatkern.heatcontent <- function(x, m = 1, ...) { } heatkern.conduction <- function(x, time = NULL, init = NULL, ...){ heatkern.distribution <- function(x, time = NULL, init = NULL, ...){ hk.mat <- heatkern.kernel(x, time) if (!length(init) == dim(hk.mat)[1]){ ... ...
 ... ... @@ -16,7 +16,7 @@ #' \item{"heatcontent": }{Returns the heat content invariant of the graph (Bai, 2007). #' Requires an integer "m" giving the maximum coefficient of the polynomial #' expansion to return.} #' \item{"conduction": }{Simulates the conduction of heat across the vertices #' \item{"distribution": }{Simulates the conduction of heat across the vertices #' of the graph given a numeric vector "init" of initial temperatures and a #' vector "t" of time points.} #' } ... ... @@ -27,7 +27,7 @@ #' \item{"trace": }{A numeric vector with length equal to the length of #' \code{time}} #' \item{"heatcontent": }{A numeric vector with length equation to \code{m}} #' \item{"conduction: "}{A vertices-by-time matrix of vertex temporatures.} #' \item{"distribution: "}{A vertices-by-time matrix of vertex temporatures.} #' } #' @author Corson N. Areshenkoff \email{areshenk@protonmail.com} ... ... @@ -42,7 +42,7 @@ heatkern <- function(x, stat = 'kernel', ...){ kernel = heatkern.kernel(x, ...), trace = heatkern.trace(x, ...), heatcontent = heatkern.heatcontent(x, ...), conduction = heatkern.conduction(x, ...)) distribution = heatkern.distribution(x, ...)) return(drop(h)) }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!