Reppo for internal functions.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

5 lines
197 B

clustsort<-function(x){
xorder<-pull(x, 1)[hclust(dist(x %>% select(-1)))$order]
yorder<-colnames(x)[2:ncol(x)][hclust(dist(t(x %>% select(-1))))$order]
return(list("x"=xorder,"y"=yorder))
}