Commit cc243b94 authored by Corson N. Areshenkoff's avatar 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!
Please register or to comment