Nothing
#[export]
Rank <- function(x,method = "average",descending = FALSE,stable = FALSE, parallel = FALSE) {
.Call(Rfast_rank,x,method,descending,stable,parallel)
}
#[export]
rowRanks <- function(x,method = "average",descending = FALSE,stable = FALSE, parallel = FALSE,cores = 0) {
if(parallel){
.Call(Rfast_row_ranks_p,x,method,descending,stable,cores)
}else{
.Call(Rfast_row_ranks,x,method,descending,stable)
}
}
#[export]
colRanks <- function(x,method = "average",descending = FALSE,stable = FALSE,parallel = FALSE,cores = 0) {
.Call(Rfast_col_ranks,x,method,descending,stable,parallel,cores)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.