[R] replicating SAS's "proc rank" procedure

[riskcalc]

Hi try this function ive written
it should be self explantory but let me know if you have any problems. 
I've only been using R for a few eeeks so apologies if its not the most
efficient!

rankit2<-function(rankvar,cuts,data,factor) {
ranker<-rankvar
ranker<-0
range<-c(1:cuts)
range2<-range/cuts
range3<-quantile(factor,range2)
over<-length(factor)



for (i in 1:over){ 
for (j in 1:cuts) {
 
if (data[[i,1]]<=range3[[j]])
{data[[i,3]]<-j
##test<-j
##print(j)
}
 if (data[[i,3]]>0)  break
}
}
out2<-data
return(out2)
}

cars$rank<-0
try2<-rankit2(rank,15,cars,cars$speed)
try2

all the best

Leigh
RCalc partner
www.RCalc.co.uk

--
View this message in context: http://r.789695.n4.nabble.com/replicating-SAS-s-proc-rank-procedure-tp820510p3924739.html
Sent from the R help mailing list archive at Nabble.com.