Scaled = RobustNormalization(rnorm(1000, 2, 100), Capped = TRUE)
hist(Scaled)
m = cbind(c(1, 2, 3), c(2, 6, 4))
List = RobustNormalization(m, FALSE, FALSE, FALSE, TRUE)
TransformedData = List$TransformedData
mback = RobustNorm_BackTrafo(TransformedData, List$MinX, List$Denom, List$Center)
sum(m - mback)
Run the code above in your browser using DataLab