Create rankall.r

Doesn't work yet... problem with order, may need to make temp data.frame earlier...