小编use*_*484的帖子

我在这里尝试了一些提议的解决方案.但这对我的案子不起作用.我有一个代码,这里:

a <- read.table("Whirr_127.csv", header=T, sep=",", row.names=1) # task assignment / people vs task
b <- read.table("Files_Whirr_127.csv", header=T, sep=",", row.names=1) #task vs files 
a
b

#calc cr , cr = ta * tf * transpose(ta)
cr <- as.matrix(a) %*% (as.matrix(b) %*% as.matrix(t(b)) %*% as.matrix(t(a)))
cr

#set value to 1, to initialize table
cr[cr>=1]<-1
cr

#identify diagonal matrix, set to zero
cr<-as.matrix(0,ncol=ncol(cr),nrow=nrow(cr))
cr<-diag(cr,x=0)

我想将对角线值设置为零.似乎最后两行中使用的代码对我的情况不起作用.

另外,我想使用文件名a,并将其保存为AB_Files_Whirr_127.csv我试图使用

write.csv(cr,file = paste("CR_", a,".csv")

但是,我的目录中没有任何内容.

cr的示例输出:

               Adrian Cole Alison Wong Andrei Savu Bruno Dumon …