Nothing
#' normalize
#'
#' Extracts the numeric vectors from a data frame and normalizes each vector.
#'
#' @param x data.frame or matrix
#' @param method integer: normalization method (default: \code{1})
#' * 0: no rescaling
#' * 1: \eqn{(x-min(x))/(max(x)-min(x))}
#' * 2: \eqn{(x-mean(x))/sd(x)}
#' @seealso In package \code{\link[andrews]{normalize}} or at \href{https://CRAN.R-project.org/package=andrews}{CRAN}
#'
#' @md
#' @return numeric matrix
#' @export
#'
#' @examples
#' normalize(iris, 2)
normalize <- function(x, method=1) {
if (is.data.frame(x)) x <- as.matrix(x[,sapply(x, is.numeric)])
stopifnot("matrix" %in% class(x))
if (is.null(colnames(x))) colnames(x) <- sprintf("V%.0f", 1:ncol(x))
if (method==1) {
mi <- apply(x, 2, min, na.rm=TRUE)
ma <- apply(x, 2, max, na.rm=TRUE)
x <- scale(x, center=mi, scale=ma-mi)
}
if (method==2) x <- scale(x)
x
}
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.