###example to test the functions of TATALE
set.seed(15)
dataex <- as.data.frame(matrix(ncol = 5, nrow = 100))
colnames(dataex) <- c("V1","V2","V3","V4","V5")
dataex$V1 <- runif(100, min = 100, max = 2000)
dataex$V2 <- runif(100, min = 0.1, max=0.3)
dataex$V3 <- as.factor(ifelse(runif(100, min = 0, max = 1) < 0.5,"A","B"))
dataex$V4 <- runif(100, min = -5, max = 2)
dataex$V5 <- rnorm(100, mean = 12, sd = 5)

###prestans function
fittabex <- data.frame(variable = factor(colnames(dataex)), 
                       form  = factor(c("L.I","CLC.D","","CCC.TI","LL.TI")))
tabtransex <- pretrans(dataex, fittabex, graphpretrans = TRUE)

### transformation graphic
graphtrans(tabtransex)
#### transformation
datatex <- trans(data=dataex, tabtrans=tabtransex)
min(datatex)
max(datatex)

#### aggregation
ON <- ("A1","A1","A2","A2","A2","A3","A3")
IN <- c("V1","V2","V3","V4","V5","A1","A2")
method <- c("MEAN","MEAN","MIN","MIN","MIN","MAX","MAX")
weight <- c(2,1,0,0,0,0,0)
tabaggrex <- as.data.frame(cbind(ON,IN,method,weight))

outputa <- aggr(datat = datatex,tabaggr = tabaggrex)
## aggregation graphic
graphaggr(tabaggrex, orientation="LR", space=1)

#tatale
TA <- tatale(dataex, tabtransex, tabaggrex, graphtrans=TRUE, graphaggr = FALSE)

TA$aggr
TA$trans