test.helper.scale <- function()
{
    train = matrix(c(1:4),nrow = 2, ncol = 2)
    test = matrix(c(11:18),nrow = 4, ncol = 2)

    ret1 = classys.helper.scale(train,test,"min-max")
    ret2 = classys.helper.scale(train,test,"mean-sd")
    ret3 = classys.helper.scale(train,test,"median-mad")

    return(list(ret1 = ret1, ret2 = ret2, ret3 = ret3))
}