R/GetOrder.R

Defines functions GetOrder

GetOrder <- function(df){
  ord <- as.list( order( apply( df[!duplicated(df),], 1, paste, collapse="" ) ) )
  names(ord)<-apply(df[!duplicated(df),],1,paste,collapse="")
  uniq <- apply( df, 1, function(x) ord[[ paste0(x,collapse="") ]] )
  cbind(df, uniq )
}

Try the vlda package in your browser

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

vlda documentation built on July 1, 2020, 10:15 p.m.