compute.costs.proximity.graph | R Documentation |
This function computes the edge costs (distances) overall sum of a proximity graph.
compute.costs.proximity.graph(graph.edges, distance.matrix)
graph.edges |
A object of class "matrix" with two columns (object_i, object_j) representing the objects (nodes) of a proximity graph. |
distance.matrix |
A distance matrix between each pair of object i,j in the proximity graph. |
total.costs.graph |
A numeric value representing the edge costs (distance) overall sum of a proximity graph. |
set.seed(1987) ##Generates a data matrix of dimension 50X13 n=50; m=13 x <- matrix(runif(n*m, min = -5, max = 10), nrow=n, ncol=m) ##Computes a distance matrix of x. library("stats") d <- base::as.matrix(stats::dist(x, method="euclidean")) ##Generates complete graph (CG) cg <- generate.complete.graph(1:nrow(x),d) ##Generates a proximity graph (MST) mstree <- generate.mst(cg) ##Calculate the edge cost sum of proximity graph (MST) mstree.cost=as.numeric(compute.costs.proximity.graph(as.matrix(mstree$edges.mst.graph[,1:2]), d)) mstree.cost ##Generates a proximity graph (kNN) knneig <- generate.knn(cg) ##Calculate the edge cost sum of proximity graph (kNN) knneig.cost=as.numeric(compute.costs.proximity.graph(as.matrix(knneig$edges.knn.graph[,1:2]), d)) knneig.cost
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.