# Define a wrapper function
Spearmancor <- function(data){
cor(data,method="spearman")
}
# Register it to all.fast methods
RegisterWrapper("Spearmancor")
# Register it to all methods
RegisterWrapper("Spearmancor", all.fast=FALSE)
# Unregister it from all.fast methods
UnregisterWrapper("Spearmancor")
# Unregister it from all methods
UnregisterWrapper("Spearmancor", all.fast=FALSE)
Run the code above in your browser using DataLab