R/plot.tuneclus.R

plot.tuneclus<-function(x, dims = c(1,2), what = c(TRUE,TRUE), cludesc = FALSE, topstdres = 20, attlabs = NULL, binary = FALSE, subplot = FALSE, ...){
  
  out=list()
  if (class(x$clusobjbest) == "cluspca") {
    out = plot.cluspca(x$clusobjbest, dims = dims, what = what, cludesc = cludesc, ...)
  }

  if (class(x$clusobjbest) == "cluspcamix") {
    out = plot.cluspcamix(x$clusobjbest, dims = dims, what = what, cludesc = cludesc, ...)
  }
  
  if (class(x$clusobjbest) == "clusmca") {
    out = plot.clusmca(x$clusobjbest,dims = dims, what = what, cludesc = cludesc, topstdres = topstdres, attlabs = attlabs, binary = binary, subplot = subplot, ...)
  }
  
  out  
}

Try the clustrd package in your browser

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

clustrd documentation built on May 8, 2019, 5:03 p.m.