data(VEGFmouse)
set.seed(1)
tissuesold <- colnames(VEGFmouse[,1:9])
## Suppose that you want to order the tissues in the folowing order.
tissuesnew <- colnames(VEGFmouse[,1:9])[sample(9)]
tissuesnew
## To do this, create a numeric vector with the desired order.
ordtissues <- pmatch(tissuesnew,tissuesold)
VEGFmousenew <- orderdata(VEGFmouse,40,order.cols=ordtissues)
colnames(VEGFmousenew)[1:9]
Run the code above in your browser using DataLab