## ----echo = FALSE, warning=FALSE----------------------------------------------
library(YEAB)

## -----------------------------------------------------------------------------
x <- 5:45
x_scaled <- unit_normalization(x)
x_scaled

## -----------------------------------------------------------------------------
x <- 5:45
a <- 1
b <- 100
x_scaled <- ab_range_normalization(x, a, b)
x_scaled

## -----------------------------------------------------------------------------
x <- rnorm(1000)
hist(x, main = "Original Distribution")
x_scaled <- unit_normalization(x)
hist(x_scaled, main = "Normalized Distribution")