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 MST graph
mstree <- generate.mst(cg)
##Visualizing MST graph
plot(mstree$mst.graph, main="MST")
Run the code above in your browser using DataLab