#b为新建立的0矩阵，a为原始数据矩阵，读取文件test.txt的数据
a<- as.matrix(read.table("test.txt"))
b<- matrix(0,nrow=ncol(a),ncol = ncol(a))
for(n in i : nrow(a))
{
for(i in 1 :ncol(a))
{
if(a[n,i] == 1)
{
for( j in 1 :ncol(a))
{
if(a[n,j] == 1 &&i!= j)
{
b[i,j] = b[i,j]+1
}
}
}
}
}
#结束
新矩阵是b
问题2：
k <- 3 #设定聚类数
a<- read.table("test.txt"))#读入数据
cl <- hclust(dist(a),method="single") #设定聚类方法
memb <- cutree(cl, k=k) #分割聚类数
memb是类别标记
至于聚类分析图，我不知道什么意思。
满意请采纳。
同学你好，很高兴为您解答！
R/E：保留盈余没有用作股息派发给股东，但保留在公司用作投资公司核心业务或偿付债务的净利润百分比。在资产负债表内列在股东权益项下。计算方法为净利润加（或净亏损减）期初保留盈利，然后减向股东派发的股息。
希望我的回答能帮助您解决问题，如您满意，请采纳为最佳答案哟。
再次感谢您的提问，更多财会问题欢迎提交给高顿企业知道。
高顿祝您生活愉快！
