Nothing
#' Chart of correlation between rows and columns categories
#'
#' This function calculates the strength of the correlation between
#' rows and columns of the contingency table. A reference line indicates the
#' threshold above which the correlation can be considered important.
#'
#' @param data Name of the dataset (in dataframe format).
#'
#' @keywords caCorr
#'
#' @export
#'
#' @examples
#' data(greenacre_data)
#' caCorr(greenacre_data)
#'
caCorr <- function (data){
mydataasmatrix<-as.matrix(data)
dataframe.after.ca<- summary(ca(data))
perf.corr<-(1.0)
sqr.trace<-round(sqrt(sum(dataframe.after.ca$scree[,2])), digits=3)
barplot(c(perf.corr, sqr.trace), main=paste("Correlation coefficient between rows & columns (=square root of the inertia):", sqr.trace), sub="reference line: threshold of important correlation ", ylab="correlation coeff.", names.arg=c("correlation coeff. range", "correlation coeff. bt rows & cols"), cex.main=0.80, cex.sub=0.80, cex.lab=0.80)
abline(h=0.20)
}
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.