R/stat.R

In caesar0301/omniR: Miscellaneous Functions for data analysis in OMNILab.

#' Root Mean Squared Error (RMSE)
#' 
#' calculate the root mean squared error (RMSE) of two vectors.
#' 
#' @param x A given vector to calculate RMSE.
#' @param y The target vector
#' @export
#' @examples
#' RMSE(c(1,2,3,4), c(2,3,2,3))
RMSE <- function(x, y){
  if( !(class(x) == class(y)
        & class(x) %in% c("matrix", "numeric")) ) {
    stop("The input should be matrix or vector")
  }
  
  x = c(x); y = c(y)
  sqrt(mean((x-y)^2))
}

#' Vector Normalization
#' 
#' Normalize a given vector.
#' 
#' @param x A vector to be normalized.
#' @export
#' @examples
#' standardize(c(1,2,3,4,5,6))
standardize <- function(x){
  x.min = min(x);
  x.max = max(x)
  (x - x.min) / (x.max - x.min)
}