DataSTP2 <- read.csv("/Users/mass/Desktop/DatasetforR.csv", stringsAsFactors = F, na.strings = c(NA,"NA", " NA", "-", &quo