我有一个矩阵A
,我试图通过这种方式从中计算出第二个矩阵B
:
B<-t(sapply(1:nrow(A), function(x) {
rowSums((t(t(A)-A[x,])!=0))
}))
结果,我获得了以下错误
Error in 1:nrow(A) : argument of length 0
那是什么意思?
编辑:矩阵A源自以下操作:
for(i in 1:n){
A <- matrix(unlist(out[i]), ncol = 8, byrow = FALSE)
}
其中
data.to.cluster <- read.csv('dataset.csv', header = TRUE, sep = ';')
cluster.results <-kmodes(data.to.cluster[,2:8], n, iter.max = 100, weighted = FALSE )
v <- as.matrix(unlist(cluster.results[1]))
df1<-data.to.cluster
out <- split(df1, v)
和n
是模式数。