## Not run:
# # 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
#
# ## End(Not run)
Run the code above in your browser using DataLab