Metrics: Persistence Fisher Distance

Computes the persistence Fisher distance matrix from a list of persistence diagrams. The persistence Fisher distance is obtained by computing the original Fisher distance between the probability distributions associated to the persistence diagrams given by convolving them with a Gaussian kernel. See http://papers.nips.cc/paper/8205-persistence-fisher-kernel-a-riemannian-manifold-kernel-for-persistence-diagrams for more details.

Author

Mathieu Carrière

Super classes

rgudhi::PythonClass -> rgudhi::SKLearnClass -> rgudhi::MetricStep -> PersistenceFisherDistance

Methods

Public methods

• PersistenceFisherDistance$new()

• PersistenceFisherDistance$clone()

Inherited methods

• rgudhi::PythonClass$get_python_class()
• rgudhi::PythonClass$set_python_class()
• rgudhi::SKLearnClass$get_params()
• rgudhi::SKLearnClass$set_params()
• rgudhi::MetricStep$apply()
• rgudhi::MetricStep$fit()
• rgudhi::MetricStep$fit_transform()
• rgudhi::MetricStep$transform()

---

Method new()

The PersistenceFisherDistance constructor.

Usage

PersistenceFisherDistance$new(bandwidth = 1, kernel_approx = NULL, n_jobs = 1)

Arguments

bandwidth

A numeric value specifying the bandwidth of the Gaussian kernel applied to the persistence Fisher distance. Defaults to 1.0.

kernel_approx

A Python class specifying the kernel approximation class used to speed up computation. Defaults to NULL. Common kernel approximations classes can be found in the scikit-learn library (such as RBFSampler for instance).

n_jobs

An integer value specifying the number of jobs to use for the computation. Defaults to 1L.

Returns

An object of class PersistenceFisherDistance.

---

Method clone()

The objects of this class are cloneable with this method.

Usage

PersistenceFisherDistance$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

if (FALSE) { # reticulate::py_module_available("gudhi")
X <- seq_circle(10)
ac <- AlphaComplex$new(points = X)
st <- ac$create_simplex_tree()
dgm <- st$compute_persistence()$persistence_intervals_in_dimension(0)
ds <- DiagramSelector$new(use = TRUE)
dgm <- ds$apply(dgm)
dis <- PersistenceFisherDistance$new()
dis$apply(dgm, dgm)
dis$fit_transform(list(dgm))
}