data(Metropolitan_And_London_Rates_Departments)
attach(Metropolitan_And_London_Rates_Departments)
x <- data.frame(TotalCost)
rownames(x) <- Authority
colnames(x) <- colnames(Metropolitan_And_London_Rates_Departments)[2]
y <- data.frame(`Non-cnl`, Rate, Summons, NPV)
rownames(y) <- Authority
colnames(y) <- colnames(Metropolitan_And_London_Rates_Departments)[3:6]
detach(Metropolitan_And_London_Rates_Departments)
result <- DeaMultiplierModel(x,y,"crs", "input")
Run the code above in your browser using DataLab