#' Devianza
#'
#' Calcola la devianza come \code{\link[stats]{cor}} * \code{\link[LabRS]{nval}} - 1.
#' Sono considerati i soli casi validi.
#'
#' @param x vettore
#' @param ... altri argomenti ereditati da \code{\link[stats]{cor}}
#' @return Valore della devianza
#' @export
#' @import stats
devianza <- function (x, ...)
{
var(x, na.rm = TRUE, ...) * (nval(x) - 1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.