data(Tuis5_95, Tuis5_96, Tuis5_97, Tuis5_98)
labels <- c("95","96","97","98")
res <- statis.dual(list(Tuis5_95, Tuis5_96, Tuis5_97, Tuis5_98), labels.tables = labels)
ETCal <- c("Ph","Temp","DBO","ST","PO4","NO3","POD","Cal")
df_selected <- select.super.variables(res$supervariables, res$vars.names, ETCal)
Run the code above in your browser using DataLab