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 )
}
pnuwon/vlda documentation built on June 27, 2020, 8 a.m.