I have a data frame that looks like this:
Train_Table_Time_Power <- data.frame( Skew = runif(250), Crest = runif(250), Kurt = runif(250), Impulse = runif(250),