par(mfrow=c(2,3))
Sigmoid <- function(x){(1 / (1 + exp(-x)))}


forexFeatures <- read.csv2("Qwe.txt", dec=".")
boxplot(forexFeatures, main="Qwe.txt")


forexFeatures <- read.csv2("Qwe.txt", dec=".")
for(i in 1:(ncol(forexFeatures)-1)){
  forexFeatures[,i] <- (forexFeatures[,i] - min(forexFeatures[,i]))/(max(forexFeatures[,i])-min(forexFeatures[,i]))*2-1
}
boxplot(forexFeatures, main="Qwe.txt -> [-1;1]")


forexFeatures <- read.csv2("Qwe.txt", dec=".")
forexFeatures[1:(ncol(forexFeatures)-1)] <- scale(forexFeatures[1:(ncol(forexFeatures)-1)])
boxplot(forexFeatures, main="Qwe.txt -> scale()")


forexFeatures <- read.csv2("Qwe.txt", dec=".")
forexFeatures[1:(ncol(forexFeatures)-1)] <- scale(forexFeatures[1:(ncol(forexFeatures)-1)])
for(i in 1:(ncol(forexFeatures)-1)){
  forexFeatures[,i] <- Sigmoid(forexFeatures[,i])
}
boxplot(forexFeatures, main="Qwe.txt -> scale() -> Sigmoid()")


forexFeatures <- read.csv2("Qwe.txt", dec=".")
forexFeatures[1:(ncol(forexFeatures)-1)] <- scale(forexFeatures[1:(ncol(forexFeatures)-1)])*2
for(i in 1:(ncol(forexFeatures)-1)){
  forexFeatures[,i] <- Sigmoid(forexFeatures[,i])
}
boxplot(forexFeatures, main="Qwe.txt -> scale()x2 -> Sigmoid()")