#Input matrix where last row is the Demand and last column is the Supply
ex_matrix=data.frame(D1=c(6,3,4,20),E1=c(4,8,4,95),F1=c(1,7,2,35),
Supply=c(50,40,60,150),row.names = c("A1","B1","C1","Demand"))
CMM(ex_matrix)
Run the code above in your browser using DataLab