inst/doc/scaling.R

In AnderEhu/sme:

## -----------------------------------------------------------------------------
library(SME)
library(knitr)

## -----------------------------------------------------------------------------
df <- data.frame("V1" = 1:3, "V2" = 3:5, "V3" = 5:7)
v <- c(1, 3, 5)
m <- matrix(c(1,2,3,3,4,5,5,6,7), ncol = 3, byrow = FALSE)

## -----------------------------------------------------------------------------
s1 <- normalize(df, margin = 1L)
kable(s1)

## -----------------------------------------------------------------------------
s2 <- normalize(df, margin = 2L)
kable(s2)

## -----------------------------------------------------------------------------
s3 <- normalize(m, margin = 1L)
kable(s3)

## -----------------------------------------------------------------------------
s4 <- normalize(m, margin = 2L)
kable(s4)

## -----------------------------------------------------------------------------
s5 <- normalize(v)
kable(s5)

## -----------------------------------------------------------------------------
s1 <- standardize(df, margin = 1L)
kable(s1)

## -----------------------------------------------------------------------------
s2 <- standardize(df, margin = 2L)
kable(s2)

## -----------------------------------------------------------------------------
s3 <- standardize(m, margin = 1L)
kable(s3)

## -----------------------------------------------------------------------------
s4 <- standardize(m, margin = 2L)
kable(s4)

## -----------------------------------------------------------------------------
s5 <- standardize(v)
kable(s5)