#' Test if Object is Correlation
#'
#' @param Data An object coercible to `matrix` to test for.
#'
#' @keywords internal
#' @noRd
is_corr <- function(Data) {
dm <- dim(Data)
if (dm[1L] != dm[2L]) {
return(FALSE)
}
Data <- as.matrix(Data)
if (!isSymmetric(Data)) {
return(FALSE)
}
if (prod(diag(Data)) != 1) {
return(FALSE)
}
if ((min(Data, na.rm = TRUE) < -1) || (max(Data, na.rm = TRUE) > 1)) {
return(FALSE)
}
TRUE
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.