R/RV.R

In Rui1521/R-package-for-Multiple-Factor-Analysis: Multiple Factor Analysis

#' RV
#'
#' To evaluate the similarities between two tables
#'
#' @param table1 a data frame or matrix
#' @param table2 a data frame or matrix
#'
#' @return RV coefficient
#'
#' @export

RV = function(table1, table2){
  table1 = as.matrix(table1)
  table2 = as.matrix(table2)
  top = traceM((table1%*%t(table1))%*%(table2%*%t(table2)))
  bottom = traceM((table1%*%t(table1))%*%(table1%*%t(table1))) * traceM((table2%*%t(table2))%*%(table2%*%t(table2)))
  rv = top/sqrt(bottom)
  rv
}

traceM = function(M){
  sum(diag(M))
}