I have data as follows:
DT <- structure(list(ECOST = c(0.0757999242, 0.190333143, 0.066333267, 0.2074664592, 0.0615332718, 0.1985331348, 0.0757999242, 0.19033