#file to add standardised columns to all fish for modelling and save

####clear variables####
rm(list=ls())

####packages####

library(dplyr)

####read in data####

files <- list.files("data/find ladder/FINAL final SSF dataframes - filtered - decision tree/",full.names = T)

stand <- read.csv("summary_stats_for_standardising.csv")

#list variables
variable_list <- stand$Variable

####loop####

for (k in 1:length(files)){
  data_ssf <- read.csv(paste0(files[[k]]))
  id <- data_ssf$fish_id[1]

  
  #save number of columns for later
  num_cols <- length(data_ssf)
  if(length(data_ssf$approach)>0){
    for(i in 1:length(variable_list)){
      var <- variable_list[i]
      r0w <- filter(stand,Variable==var)
      col_id <- (num_cols+i)
      data_ssf[col_id] <- 0
      data_ssf[col_id] <- unlist((data_ssf[var]-r0w$Mean)/r0w$Std..Dev.)
      names(data_ssf)[col_id] <- paste0(var,"_strdised")
    } 
    write.csv(data_ssf,file=paste0("data/find ladder/FINAL final SSF dataframes - standardised and filtered - decision tree/",id,".csv"))
    
  } else {
      print(paste0("fish id ", files[[k]]," has no data left post filtering"))
    }
  
}