小编use*_*535的帖子

我有一个值为0或1的矩阵,我想获得一个相邻1的组列表.

例如,矩阵

mat = rbind(c(1,0,0,0,0),
            c(1,0,0,1,0),
            c(0,0,1,0,0),
            c(0,0,0,0,0),
            c(1,1,1,1,1))

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

应返回以下4个连接组件:

C1 = {(1,1);(2,1)}

C2 = {(2,4)}

C3 = {(3,3)}

C4 = {(5,1);(5,2);(5,3);(5,4);(5,5)}

有没有人知道如何在R中快速做到这一点？我的真实矩阵确实相当大,如2000x2000(但我希望连接组件的数量相当小,即200).

我想知道R shiny将用于显示应用程序的端口.我可以在一些论坛上看到端口应该是8100,但是当我运行应用程序时,每次重新启动R时所选的posrt都会更改.

有没有办法指定这个端口？或者至少知道将要使用的端口,在脚本的另一部分使用它？

我使用 $fitdist$ 函数在经验分布函数上拟合伽马分布：

fit = fitdist(data=empdistr,distr="gamma")

然后我使用 $denscomp$ 函数将数据与拟合值进行比较：

dc = denscomp(fit)

但我想从 $fit$ 或 $dc$ 中提取实际拟合值，即在 $denscomp$ 函数中显示的伽马密度点（带有拟合参数）。

有没有人知道我如何做到这一点。

提前致谢！