Adjusting according adding column.

In line 17th,
rawData <- srcData[which(srcData[clusterMethod] == clusterNumber), c(1,
43:ncol(srcData))]
c(1, 23:ncol(srcData) -> c(1, 43:ncol(srcData)