library(topsis)
df1<- matrix(c(90,20,80,120,8,100,70,12,90),
nrow=3,
ncol=3,
byrow=TRUE)
row.names(df1) <- c("ERP1","ERP2","ERP3")
colnames(df1) <- c("Cost","Installation_deadline","Warrantly")
w <- c(0.5,0.3,0.2)
i <- c("-", "-", "+")
topsis(df1, w, i)
alt.row score rank
1 1 0.3614957 3
2 2 0.4953023 2
3 3 0.7816596 1