标签：找出 rs -- 程序代码 矩阵 各数 异常 向量

【任务简介】

下面以找出矩阵中最大的三个异常值的位置为例。

此处的异常值定义为矩阵中各数与中位数的差的绝对值。

【程序代码】

rs<-matrix(c(1,2,3,12,16,99999,7,8,9),ncol=3,nrow=3,byrow=TRUE)

findpos <- function(x) {
  mdn <- median(x)
  devs <- abs(x-mdn)
  arrayInd(sort.list(devs,decreasing=T)[1:3],dim(devs))
}

【运行结果】

> findpos(rs)   # rs<-matrix(c(1,2,3,12,16,99999,7,8,9),ncol=3,nrow=3,byrow=TRUE)
     [,1] [,2]
[1,]    2    3
[2,]    2    2
[3,]    1    1

【参考文献】

https://blog.csdn.net/hongweigg/article/details/48016307

标签：找出,rs,--,程序代码,矩阵,各数,异常,向量
来源： https://blog.csdn.net/hnjzsyjyj/article/details/111319915

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。