#clear everything
rm(list = setdiff(ls(), lsf.str()))

PathforCleanData =   "/Users/rizwan/Library/Mobile Documents/com~apple~CloudDocs/PhD/initialexperiments/TheDataSet2/"

dataSetName = datasetRepository = list.files(path = PathforCleanData)
instances <- integer(0)
for (names in 1:NROW(dataSetName)) {
  CompletePathAndFile = paste0(PathforCleanData, dataSetName[names])
  mydata = read.csv(CompletePathAndFile, header = TRUE)
    cat(
      names,
      ">",
      dataSetName[names],
      ">",
      paste0(sort(colnames(mydata)[-ncol(mydata)]), collapse = ","),
      ">",
      nrow(mydata),
      ">",
      prop.table(table(mydata$BUG))[1],
      ">",
      prop.table(table(mydata$BUG))[2],
      "\n"
    )
}