Potato_Flesh_V3.R uses wrong columns when filtering highly correlated variables
line 48 : combined_data<-combined_data[,-(highlyCorrelated)] should be combined_data<-combined_data[,-(highlyCorrelated+1)]
line 48 : combined_data<-combined_data[,-(highlyCorrelated)] should be combined_data<-combined_data[,-(highlyCorrelated+1)]