Nothing
#' Calculate the Maximum Absolute Correlation
#'
#' \code{MaxAbsCor} returns the maximum absolute correlation of a matrix
#'
#' @param X A matrix object. In general, \code{X} stands for the design matrix.
#'
#' @return If all inputs are logical, then the output will be a positive number indicating maximum absolute correlation.
#' \code{maximum absolute correlation = max_{ij} |q_{ij}|}
#'
#' @references Georgiou, S. D. (2009) Orthogonal Latin hypercube designs from generalized orthogonal designs. \emph{Journal of Statistical Planning and Inference}, \strong{139}, 1530-1540.
#'
#' @examples
#' #create a toy LHD with 5 rows and 3 columns
#' toy=rLHD(n=5,k=3);toy
#'
#' #Calculate the maximum absolute correlation of toy
#' MaxAbsCor(X=toy)
#'
#' @export
MaxAbsCor=function(X){
p=dim(X)[2]
corr=NULL #used for storing all the pairwise correlations
for (i in 1:(p-1)) {
for (j in (i+1):p) {
corr=c(corr,stats::cor(X[,i],X[,j]))
}
}
result=max(abs(corr))
result
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.