Nothing
#' @title First-order partial correlation coefficient
#'
#' @description Internal function to obtain the first-order partial correlation coefficient.
#'
#' @encoding UTF-8
#' @param rxy Correlation between xy
#' @param rxz Correlation between xz
#' @param ryz Correlation between yz
#' @return The first-order partial correlation coefficient.
#' @author Vanderlei Julio Debastiani <vanderleidebastiani@@yahoo.com.br>
#' @seealso \code{\link{syncsa}}, \code{\link{cor.matrix}},
#' @keywords SYNCSA
#' @export
part.cor <- function(rxy, rxz, ryz)
{
rxy <- round(rxy, 10)
rxz <- round(rxz, 10)
ryz <- round(ryz, 10)
if (rxz == 1 | ryz == 1) {
res <- 0
}
else {
res <- (rxy - rxz * ryz)/(sqrt(1 - rxz * rxz)*sqrt(1 - ryz * ryz))
}
return(res)
}
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.