dataresults = 1
numRowData = nrow(data)
numRowData
for (i in 1:numRowData) {
  indexdata = which(data[i , ] == "S_2")
  #print(indexdata)
  if (length(indexdata) > 0) {
    if (indexdata[1] == 2) {
      date = data[i , 1]
      print(date)
      print(indexdata)
      print("True")#; print(indexdata[1])
      dataresults = c(dataresults, "true")
    } else {
      print(indexdata)
      print("False")#; print(indexdata[1])
      dataresults = c(dataresults, "false")
    }
  } else {
    #print("Empty"); print(indexdata[1])
    dataresults = c(dataresults, "empty")
  }
}