R/Dmin.R

Defines functions Dmin

Documented in Dmin

Dmin <- function(eset,m,crange = seq(4,40,4),repeats=3,visu=TRUE){
  
  DminM <- matrix(0,nrow=length(crange),ncol=repeats)

  for (ii in 1:repeats){
      j <- 0
      for (i in crange){
        cl <- mfuzz(eset,c=i,m=m)
        DminM[j <- j+1,ii] <- min(dist(cl[[1]]))
      }
    }
   DminMav <- apply(DminM,1,mean)
  
  if (visu) plot(crange,DminMav,xlab="Cluster number",ylab="Min. centroid distance")

  return(DminMav)
}

Try the Mfuzz package in your browser

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

Mfuzz documentation built on Nov. 1, 2018, 5:03 a.m.