library(caret)
DataFolder = "/Users/ml/Desktop/DataSet/"
file_list <- list.files(path = DataFolder)
for (i in 1:length(file_list)) {
  fileName = paste(DataFolder,"/", file_list[i], sep = "")
  thedata <-
    read.csv(fileName)[, c(
      'StrengthOut',
      'StrengthIn',
      'RFC',
      'FanIn',
      'FanOut',
      'CBO'
    )]
  
pairs(~mpg+disp+drat+wt,data=mtcars,
      main="Simple Scatterplot Matrix")