if (FALSE) {
# These examples will simply show you what you can do with these
set.seed(5000)
(x <- sample(10, 20, replace = TRUE))
(m <- new("MLG", x))
# Visibility ------------------------------
visible(m) # original
visible(m) <- "contracted"
m # shows contracted MLGS
# Conversion to data frame ----------------
MLG2df(m) # Grab the internal data frame
# Distance function handling --------------
distname(m) # nei.dist
distargs(m) # list()
distalgo(m) # farthest
cutoff(m)
distname(m) <- substitute("diss.dist")
distargs(m) <- list(percent = TRUE)
distalgo(m) <- "average"
cutoff(m)["contracted"] <- 0.2
}
Run the code above in your browser using DataLab