设为首页 加入收藏

TOP

多准则决策模型-TOPSIS评价方法-源码(二)
2017-10-10 12:10:40 】 浏览:10533
Tags:准则 决策 模型 -TOPSIS 评价 方法 源码
p; apply (V,  2 max +  as.integer(impacts  = = 
         "-"  apply(V, 2min)
    l <- as.integer(impacts == "-"  apply (V,  2 max +  as.integer(impacts  = = 
         "+" *  apply (V,  2 min )
 
#构建理想方案和负理想方案距离公式
     distance_u  =  function(x) {
         sqrt( sum ((x  -  u)^ 2 ))
     }
     distance_l  =  function(x) {
         sqrt( sum ((x  -  l)^ 2 ))
     }
 
#计算相对接近度并排序
     du < -  apply (V,  1 , distance_u)
     dl < -  apply (V,  1 , distance_l)
     score < -  dl / (dl  +  du)
     outcome < -  data.frame( "方案" =  1 :nrow(decision), 得分  =  score, 
         排名  =  rank( - score))
 
return (outcome)
 
}
 
Author(s)

首页 上一页 1 2 下一页 尾页 2/2/2
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇R语言-妹子被追后的选择分析 下一篇R初学,边学边写博客。日常小应用..

最新文章

热门文章

Hot 文章

Python

C 语言

C++基础

大数据基础

linux编程基础

C/C++面试题目