Functions I will need in R

R_functions.R

standardNegationInRange = function(selection) {
    #x_{n}=x_{max}-x_{n}+x_{min}
    return (max(selection) - selection + min(selection))
}

featureScale = function(selection) {
    #x_{n}=\frac{x_{n}\text{−}x_{min}}{x_{max}\text{−}x_{min}}
    return ((selection - min(selection))/(max(selection) - min(selection)))
}