K-MEANS PLOTING
plot(InactiveResBind[c("LogDepoCount","LogAverageDepoAmount")],col=km$cluster,main="Inactive ROTW Cluster distribution - Logarithmic scale")