R/Ascending_Num.R

In CubicZebra/MVNBayesian: Bayesian Analysis Framework for MVN (Mixture) Distribution

Ascending_Num <-
function(data){
  coun <- count(data)
  sor <- rev(sort(coun$freq))
  for (i in 1:length(sor)){
    d <- as.numeric(coun[which(coun$freq == sor[i]),]$x)
    data <- replace(data, data == d, (-i))
  }
  data <- data*(-1)
  return(data)
}