tests/rkindex.R

In sprof: Profiling, timing and optimisation utilities

#$HeadURL: file:///srv/svn/sintro/pkg/sprof/tests/rkindex.R $
#$Id: rkindex.R 238 2013-09-08 17:22:45Z gsawitzki $
#$Revision: 238 $
#$Date: 2013-09-08 19:22:45 +0200 (Sun, 08 Sep 2013) $
#$Author: gsawitzki $

# setwd("")
#! To Do
#!
#rank(x, na.last = TRUE,
# ties.method = c("average", "first", "random", "max", "min"))


library(sprof)

	x7 <- 1:7
	str(rkindex(x7))
	
	str(rkindex(-x7))
	
	str(rkindex(factor(x7)))
	
	str(rkindex(x7, pwr=2))
	
	str(rkindex(x7, pwr=0.5, id="tst"))

	str(rkindex(1))
	
	try(rkindex(NULL))
	
	str(rkindex(c(1,1,1)))
	
	str(rkindex(c(1,1,1), ties.method="min"))