fix bug in R script
updated ochiai ranking script