getDiscount function

input: getDiscount(listName)

bug:
Error in which(srcData[method] == cluster) :
argument "clusterNumber" is missing, with no default
Called from: `[.data.frame`(srcData, which(srcData[method] == cluster),
c(1,
23:ncol(srcData)))