R/contCorrFast.R

In ahmademad/wCorr: Weighted Correlations

contCorrFast <- function(x,y,w, method=c("Pearson", "Spearman")) {
  if(!is.numeric(x)) { 
    x <- as.numeric(x)
  }
  if(!is.numeric(y)) {
    y <- as.numeric(y)
  }
    if(!is.numeric(w)) { 
    w <- as.numeric(w)
    }
  if(tolower(method[[1]])=="spearman") {
    #x <- rank(x) # rank gives averages for ties
    #y <- rank(y)
    x <- as.vector(wrankFast(x,w))
    y <- as.vector(wrankFast(y,w))
    #x <- as.vector(wrank(x,w))
    #y <- as.vector(wrank(y,w))
  }
  cont(x,y,w)
}