R 语言 | 计算可达矩阵

在微博有位朋友问我可达矩阵的计算，于是发了点时间用R语言写出来了。

问题如下：

计算过程：

注意：是矩阵的乘法。

代码如下：

A <- matrix(c(0,0,0,0,0,0,0,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0),nrow=5)
A1 <- A+diag(5)repeat{B <- A1 * A1;if(identical(B,A1)) {print(B);break} else A1 <- B
}

结果：

     [,1] [,2] [,3] [,4] [,5]
[1,]    1    0    1    0    0
[2,]    0    1    1    0    0
[3,]    0    1    1    0    1
[4,]    0    0    0    1    1
[5,]    0    0    0    0    1

重点在repeat的使用。

R 语言 | 计算可达矩阵相关推荐

R语言计算曼哈顿距离（Manhattan Distance）实战:计算两个向量的曼哈顿距离、dist函数计算矩阵中两两元素的曼哈顿距离
R语言计算曼哈顿距离(Manhattan Distance)实战:计算两个向量的曼哈顿距离.dist函数计算矩阵中两两元素的曼哈顿距离目录 R语言计算曼哈顿距离(Manhattan Distance ...
R语言:计算各种距离
R语言:计算各种距离 MATLAB 版本的 http://blog.csdn.net/sinat_26917383/article/details/52101425 PYTHON版本的 http:// ...
r语言中矩阵QR分解_从零开始学R语言Day4|向量、矩阵和数组
从零开始学R语言Day4|向量.矩阵和数组 1.1向量 1.1.1向量在Day2中我们提及过用和c()函数来构建向量,具体实例如下. 我们还可以采用vector("类型",长度) ...
R语言--计算各种距离
MATLAB 版本的 http://blog.csdn.net/sinat_26917383/article/details/52101425 PYTHON版本的 http://book.2cto.c ...
R语言计算生物多样性指数
R语言计算生物多样性指数计算生物多样性 rm(list = ls()) setwd("D:/R Working Directory") getwd() library(readx ...
r语言重复向量变矩阵_游戏如何使重复变得有趣
r语言重复向量变矩阵 Have you ever stopped to consider that in most video games, you're doing variations of th ...
如何在R语言中建立六边形矩阵热图heatmap可视化
原文链接:http://tecdat.cn/?p=18879 这是一个六边形热图可视化程序,主要用到的知识RColorBrewer,fields,也就是R中的可视化绘图库(点击文末"阅读原文 ...
R语言计算Roger遗传距离
R语言计算遗传距离遗传距离是什么,怎样衡量遗传距离的计算 Roger遗传距离解决过程关于一些弯路遗传距离是什么,怎样衡量遗传距离指个体.群体或种之间用DNA序列或等位基因频率来估计的遗传差 ...
R语言计算杰卡德相似系数（Jaccard Similarity）实战：自定义函数计算Jaccard相似度、对字符串向量计算Jaccard相似度、将Jaccard相似度转化为Jaccard距离
R语言计算杰卡德相似系数(Jaccard Similarity)实战:自定义函数计算Jaccard相似度.对字符串向量计算Jaccard相似度.将Jaccard相似度转化为Jaccard距离目录 R ...
R语言自定义多分类混淆矩阵可视化函数（mutlti class confusion matrix）、R语言多分类混淆矩阵可视化
R语言自定义多分类混淆矩阵可视化函数(mutlti class confusion matrix).R语言多分类混淆矩阵可视化目录

R 语言 | 计算可达矩阵

R 语言 | 计算可达矩阵相关推荐

最新文章

热门文章