R/Yule.cor.R

Yule.cor <- function(vector1, vector2) {
  f <- chisq.test(vector1, vector2, correct = FALSE, simulate.p.value = FALSE)
  
  Yule <- sqrt(f$statistic / sum(f$observed))
  
  return(Yule)

}
pawelkasperkiewicz/MyLibrary documentation built on May 10, 2019, 1:51 a.m.