## xxx <- xxx[rank(temp7[!is.na(temp9)])]
## ## like 11 and 12 but for the log transofrmed data
## temp13 <- rep(NA, nrow(h))
## temp13[!is.na(temp9)] <- xxx
## xxx <- temp10[!is.na(temp10)][order(temp8[!is.na(temp10)])]
## xxx <- xxx[rank(temp7[!is.na(temp9)])]
## ## like 11 and 12 but for the log transofrmed data
## temp13 <- rep(NA, nrow(h))
## temp13[!is.na(temp9)] <- xxx
## xxx <- temp10[!is.na(temp10)][order(temp8[!is.na(temp10)])]