I have a data frame that looks like this:
Train_Table_Time_Power <- data.frame( Mean = runif(100), STD = runif(100), Kurt = runif(100), Skew = runif(100), TI