2017-07-11 2 views
1

私はParticle Swarm Optimizationの初心者です。私は、PSOとK-meansに基づいたクラスタリングに関する研究論文を読んだが、同じことが実例となっていなかった。どんな種類の助けでも大歓迎です。前もって感謝します!PSOとK-meansをベースにしたテキスト文書クラスタリングがR

PSOとK-meansを使ってRでテキスト文書のクラスタリングを行いたいのですが、最初のPSOがクラスタ重心の最適化された値を与えるという基本的な考え方があります。 PSOの最初のクラスタ重心は、k-meansが文書のクラスタを得るための手段である。

以下は、私がこれまで行ってきたことを説明するコードです。

#Import library 
library(pdist) 
library(hydroPSO) 

#Create matrix and suppose it is our document term matrix which we get after 
the cleaning of corpus 

matri <- matrix(data = seq(1, 20, 1), nrow = 4, ncol = 7, byrow = TRUE) 
matri 
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] 
[1,] 1 2 3 4 5 6 7 
[2,] 8 9 10 11 12 13 14 
[3,] 15 16 17 18 19 20 1 
[4,] 2 3 4 5 6 7 8 

#Initially select first and second row as centroids 
cj <- matri[1:2,] 

#Calculate Euclidean Distance of each data point from centroids 
vm <- as.data.frame(t(as.matrix(pdist(matri, cj)))) 
vm 
    V1  V2  V3  V4 
1 0.00000 18.52026 34.81379 2.645751 
2 18.52026 0.00000 21.51744 15.874508 

#Create binary matrix S in which 1 means Instance Ii is allocated to the cluster Cj otherwise 0. 
S <- matrix(data = NA, nrow = nrow(vm), ncol = ncol(vm)) 

for(i in 1:nrow(vm)){ 
    for(j in 1:ncol(vm)){ 
     cd <- which.min(vm[, j]) 
     ifelse(cd==i, S[i,j] <-1, S[i,j] <-0) 

    } 
    } 

S 
     [,1] [,2] [,3] [,4] 
[1,] 1 0 0 1 
[2,] 0 1 1 0 

#Apply `hydroPSO()` to get optimised values of centroids. 
set.seed(5486) 
D <- 4 # Dimension 
lower <- rep(0, D) 
upper <- rep(10, D) 
m_s <- matrix(data = NA, nrow = nrow(S), ncol = ncol(matri)) 
Fn= function(y) { #Objective Function which has to be minimised 

for(j in 1:ncol(matri)){ 
    for(i in 1:nrow(matri)){ 
     for(k in 1:nrow(y)){ 
      for(l in 1:ncol(y)){ 
       m_s[k,] <- colSums(matri[y[k,]==1,])/sum(y[k,]) 
      } 
     } 
    } 
} 

    sm <- sum(m_s)/ nrow(S) 
    return(sm) 

    } 

hh1 <- hydroPSO(S,fn=Fn, lower=lower, upper=upper, 
       control=list(write2disk=FALSE, npart=3)) 

しかし、上記hydroPSO()機能が動作しない(私の実際のデータでは、私は951の用語、すなわち、DIM(DTM)= 20 * 951と20件の文書を持っています)。エラー長さ0の1:nrow(y):引数にエラーが発生しました。私はそれを探しましたが、私のために働く解決策はありませんでした。

また、私の目的関数にいくつか変更を加えましたが、今回はhydroPSO()が機能しましたが、正しくはないと思います。最初の重心行列を、次元が2 * 7のパラメータとして渡していますが、関数は1 * 7の最適化された値しか返しません。私はその理由を得ていない。

set.seed(5486) 
D <- 7# Dimension 
lower <- rep(0, D) 
upper <- rep(10, D) 

Fn = function(x){ 
vm <- as.data.frame(t(as.matrix(pdist(matri, x)))) 

S <- matrix(data = NA, nrow = nrow(vm), ncol = ncol(vm)) 

for(i in 1:nrow(vm)){ 
    for(j in 1:ncol(vm)){ 
     cd <- which.min(vm[, j]) 
     ifelse(cd==i, S[i,j] <-1, S[i,j] <-0) 

    } 
    } 

    m_s <- matrix(data = NA, nrow = nrow(S), ncol = ncol(matri)) 

for(j in 1:ncol(matri)){ 
    for(i in 1:nrow(matri)){ 
     for(k in 1:nrow(S)){ 
      for(l in 1:ncol(S)){ 
       m_s[k,] <- colSums(matri[S[k,]==1,])/sum(S[k,]) 
      } 
     } 
    } 
    } 

sm <- sum(m_s)/ nrow(S) 
return(sm) 

} 
hh1 <- hydroPSO(cj,fn=Fn, lower=lower, upper=upper, 
        control=list(write2disk=FALSE, npart=2, K=2)) 

上記の機能の出力。

## $par 
## Param1 Param2 Param3 Param4 Param5 Param6 Param7 
## 8.6996174 2.1952303 5.6903588 0.4471795 3.7103161 1.6605425 8.2717574 
## 
## $value 
## [1] 61.5 
## 
## $best.particle 
## [1] 1 
## 
## $counts 
## function.calls  iterations regroupings 
##   2000   1000    0 
## 
## $convergence 
## [1] 3 
## 
## $message 
## [1] "Maximum number of iterations reached" 

私はhydroPSO()に間違った方法でパラメータを渡していると思います。私が間違っているところで私を修正してください。

ありがとうございました!代わりにhydroPSO()CJを渡す

答えて

0

は、私は私の第二のアプローチでas.vector(T(CJ))を使用し、それは私のためにうまく働きました。私は14の最適化された値を持っています

関連する問題