R/PE_mod.R

PE <- function (U, b)
  {
    if (missing(U))
      stop("The membership degree matrix U must be given")
    if (is.null(U))
      stop("The membership degree matrix U is empty")
    U=as.matrix(U)
    if (any(is.na(U)))
      stop("The membership degree matrix U must not contain NA values")
    if (!is.numeric(U))
      stop("The membership degree matrix U is not numeric")
    if (missing(b))
    {
      b=exp(1)
    }
    if (!is.numeric(b))
    {
      b=exp(1)
      cat("The logarithmic base b is not numeric: the default value b=exp(1) will be used ",fill=TRUE)
    }
    if (b<=1)
    {
      b=exp(1)
      cat("The logarithmic base b must be >1: the default value b=exp(1) will be used ",fill=TRUE)
    }
    part.ent=partEntropy(U = U,b = b,n = nrow(U))
    return(part.ent)
  }

Try the fclust package in your browser

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

fclust documentation built on Nov. 16, 2022, 5:10 p.m.