function (x, ...)
  cat ("Mean overall discriminant factor:", mean (x$assignfact), "\n")
#  cat ("\nFurther information on this DiscrFact - object goes here\n")

  cat ("Mean discriminant factor per cluster:\n")
  print (x$mean.DiscrFact)

  idx = x$assignfact > x$threshold

  if (!sum (idx))
    cat ("No decision is considered as doubtful\n")

  cat (sum (idx), "decisions are considered as doubtful\n")

Try the tclust package in your browser

Any scripts or data that you put into this service are public.

tclust documentation built on May 2, 2019, 3:20 a.m.