如何解决x [ind,]-centerI中的错误:不整合数组
我有一个时间序列数据集。我想使用不同的聚类技术对其进行聚类。然后,我想评估每种方法。我尝试了clusterSim
包中的R代码。但是,我遇到了一个错误”
Error in x[ind,] - centerI : non-conformable arrays
。我不知道为什么会收到这个错误。
这是我的代码:
library(dtwclust)
library(Tsclust)
library(dplyr)
library(clusterSim)
data("interest.rates")
rate.change <- diff(log(interest.rates),1)
md <- diss(rate.change,"AR.MAH")$p_value
min_nc=2
max_nc=8
res <- array(0,c(max_nc-min_nc+1,2))
res[,1] <- min_nc:max_nc
clusters <- NULL
for (nc in min_nc:max_nc)
{
hc <- hclust(md,method="average")
cl2 <- cutree(hc,k=nc)
res[nc-min_nc+1,2] <- DB <- index.DB(rate.change,cl2,md,centrotypes="medoids")$DB
clusters <- rbind(clusters,cl2)
}rate.change <- diff(log(interest.rates),1)
原始代码如下:
# Example 3
library(clusterSim)
data(data_ratio)
md <- dist(data_ratio,method="euclidean")
# nc - number_of_clusters
min_nc=2
max_nc=8
res <- array(0,1] <- min_nc:max_nc
clusters <- NULL
for (nc in min_nc:max_nc)
{
hc <- hclust(md,method="complete")
cl2 <- cutree(hc,k=nc)
res[nc-min_nc+1,2] <- DB <- index.DB(data_ratio,centrotypes="centroids")$DB
clusters <- rbind(clusters,cl2)
}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。