首页 > 解决方案 > 在 R 中手动计算熵

问题描述

我建立了自己的熵,因为我正在处理非不相交的聚类方法。首先是一些上下文:我使用的一种聚类方法 (DM) 将一个实例分配给多个集群。我假设该算法完全代表了数据中的关系,因此它是计算 K 均值、凝聚 HCLUST 和一个基于称为 MJA 的相关性的聚类的熵的基础。MJA 和 KM 的熵值分别为 0.5521826 和 0.1358357,这似乎很正常。我会得出结论,KM 的表现相当不错。但是使用 AHC,我得到的熵值为 9.138994。起初我虽然熵介于 0 和 1 之间。我读过并非总是如此,但我该如何解释这个结果呢?熵的代码是:

clusters_entropy <- function(clusts){
  v_pij <- NULL
  v_ei <- NULL
  for(i in unique(clusts)){
    c_i <- which(clusts == i) #Resources of cluster i
    mi <- length(c_i)
    for(j in c(1:31)){
      c_j <- grep(sprintf(",%s,",j),Profile_cluster$DM) #Resources of cluster j
      c_ij <- intersect(c_j, c_i) #Interseccion
      mij <- length(c_ij)
      pij <- mij/mi
      v_pij <- c(v_pij,pij)
    }
    v_pij <- replace(v_pij, v_pij==0, 1)
    v_ei <- c(v_ei,-sum(v_pij*log2(v_pij)))
    v_e <- mi/178*v_ei
  }
  e <- sum(v_e)
  return(e)
}

clusters_entropy(Profile_cluster$MJA)
clusters_entropy(Profile_cluster$AHC)
clusters_entropy(Profile_cluster$KM)

我的数据是:

structure(list(`Block Purchase Order Item` = c(0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0), `Cancel Goods Receipt` = c(0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 7, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 2, 
0, 3, 0, 0, 0, 0, 0, 0, 3, 2, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 5, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0), `Cancel Invoice Receipt` = c(0, 6, 0, 0, 6, 0, 
12, 84, 105, 0, 7, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
18, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0), `Cancel Subsequent Invoice` = c(0, 0, 0, 
0, 0, 0, 4, 15, 5, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0), `Change Approval for Purchase Order` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 201, 379, 0), `Change Delivery Indicator` = c(14, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 8, 0, 
3, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 4, 3, 0, 0, 2, 2, 2, 0, 5, 
7, 0, 3, 0, 1, 0, 0, 0, 11, 0, 0, 0, 0, 6, 0, 0, 1, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 3, 1, 
0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 0, 1, 
0, 0, 0, 2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 3, 0, 10, 0, 0, 
0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 
1, 2, 0, 1, 0, 0, 0, 0, 0, 0, 0), `Change Price` = c(1, 0, 0, 
0, 0, 0, 0, 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 4, 13, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 1, 
53, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 7, 28, 0, 0, 2, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 5, 0, 0, 0, 15, 
1, 0, 0, 1, 8, 1, 0, 0, 0, 0, 0, 1, 0, 16, 0, 0, 3, 0, 0, 0, 
1, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 
0, 1, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, 0, 1, 25, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0), `Change Quantity` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 5, 4, 
0, 0, 6, 0, 6, 0, 0, 0, 0, 0, 0, 0, 10, 9, 0, 0, 0, 6, 9, 0, 
19, 33, 0, 4, 0, 15, 7, 1, 0, 116, 0, 0, 0, 12, 1, 0, 0, 13, 
0, 5, 0, 0, 13, 0, 0, 0, 0, 0, 1, 2, 0, 4, 0, 0, 0, 0, 0, 3, 
0, 0, 0, 0, 0, 18, 0, 0, 0, 9, 0, 0, 40, 0, 0, 0, 6, 0, 30, 0, 
0, 11, 0, 0, 1, 4, 0, 0, 0, 0, 0, 6, 0, 0, 3, 0, 4, 0, 0, 0, 
1, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 1, 0, 0, 15, 0, 0, 3, 2, 1, 
0, 0, 0, 13, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 2, 4, 0, 0, 0, 0, 
0, 5, 0, 2, 8, 0, 4, 8, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0), `Change Storage Location` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Clear Invoice` = c(0, 0, 7229, 0, 
69, 2206, 3, 68, 52, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 62), `Create Purchase Order Item` = c(1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 7, 0, 
2, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 1, 1, 0, 1, 
1, 0, 0, 0, 2, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 4, 0, 1, 0, 0, 
1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 13, 0, 0, 0, 0, 0, 1, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 3, 0, 
0, 0, 1, 0, 0, 1, 0, 315, 0, 0), `Delete Purchase Order Item` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 
0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 18, 9, 0, 0, 1, 5, 3, 0, 
1, 2, 0, 0, 0, 3, 0, 1, 0, 59, 0, 0, 0, 22, 5, 0, 0, 1, 0, 1, 
0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 
0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 
0, 0, 1, 0, 0, 0, 0, 0, 0, 3, 0, 0), `Reactivate Purchase Order Item` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Receive Order Confirmation` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 37, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0), `Record Goods Receipt` = c(41, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 518, 515, 295, 0, 502, 
63, 0, 0, 0, 0, 0, 91, 0, 27, 65, 159, 12, 65, 81, 240, 1, 0, 
72, 200, 1, 8, 0, 54, 0, 68, 0, 0, 38, 0, 360, 0, 176, 0, 351, 
172, 111, 0, 0, 1, 287, 0, 164, 0, 77, 28, 0, 2, 94, 227, 2, 
43, 0, 0, 72, 0, 7, 0, 10, 175, 1, 50, 0, 4, 33, 2, 47, 0, 1, 
10, 0, 40, 6, 171, 0, 13, 243, 13, 0, 7, 0, 282, 7, 3, 11, 5, 
46, 0, 2, 2, 6, 1, 7, 0, 144, 148, 7, 0, 5, 2, 0, 25, 0, 9, 23, 
1, 27, 0, 6, 16, 8, 0, 0, 0, 2, 61, 0, 3, 173, 0, 0, 0, 1, 0, 
10, 0, 2, 0, 60, 0, 2, 1, 1, 0, 8, 11, 1, 0, 6, 0, 0, 9, 32, 
0, 0, 0, 0, 11, 0, 0, 0, 1, 0, 49, 1, 0, 0, 0, 0, 0), `Record Invoice Receipt` = c(0, 
409, 0, 0, 85, 0, 903, 1651, 237, 0, 1292, 1793, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 3534, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 99, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), `Record Service Entry Sheet` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Record Subsequent Invoice` = c(0, 
1, 0, 0, 0, 0, 0, 6, 3, 0, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Remove Payment Block` = c(0, 0, 
0, 0, 0, 0, 0, 0, 2493, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Set Payment Block` = c(0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0), `SRM: Awaiting Approval` = c(0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0), `SRM: Complete` = c(0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0), `SRM: Created` = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), `SRM: Deleted` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `SRM: Document Completed` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `SRM: In Transfer to Execution Syst.` = c(0, 
0, 0, 71, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0), `SRM: Ordered` = c(0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0), `SRM: Transfer Failed (E.Sys.)` = c(0, 0, 
0, 45, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Update Order Confirmation` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Vendor creates debit memo` = c(0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0), `Vendor creates invoice` = c(0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0), DM = c("6,7,11,15,", "3,16,18,", "10,", 
"26,28,", "3,10,16,", "10,", "3,4,10,16,", "3,4,10,16,18,", "3,4,10,16,18,19,", 
"7,", "3,4,16,", "3,4,10,16,18,", "21,22,23,25,", "21,22,23,25,", 
"2,14,15,29,", "15,", "15,", "6,7,8,9,11,12,", "15,", "15,", 
"6,7,8,11,", "7,8,12,", "6,7,11,", "11,", "8,", "2,15,", "6,8,11,12,", 
"15,", "15,", "15,", "15,", "15,", "15,", "2,15,", "6,8,12,15,", 
"6,8,11,12,13,", "15,", "15,", "6,7,12,14,15,", "6,8,11,12,15,", 
"6,8,11,12,", "15,", "6,8,11,12,", "6,7,8,11,12,15,", "7,", "6,8,", 
"15,", "6,8,11,12,", "2,8,15,", "7,8,12,", "2,15,", "6,7,8,11,12,", 
"15,", "15,", "15,", "1,7,8,12,13,", "6,7,8,12,", "15,", "15,", 
"6,7,8,11,12,13,", "2,15,", "8,11,12,", "2,15,", "15,", "8,11,12,", 
"11,15,", "2,15,", "2,15,", "15,", "2,15,", "8,", "6,8,12,", 
"15,", "6,8,", "15,", "7,", "2,15,", "2,15,", "2,15,", "8,15,", 
"7,", "15,", "15,", "15,", "2,7,15,", "7,8,11,12,", "15,", "15,", 
"7,", "7,8,15,", "7,15,", "2,15,", "8,", "15,", "15,", "15,", 
"7,8,", "2,15,", "6,7,8,11,12,", "15,", "15,", "7,8,15,", "15,", 
"6,15,", "2,6,8,9,11,12,15,", "7,8,", "15,", "15,", "15,", "15,", 
"15,", "6,7,8,", "2,15,", "15,", "8,15,", "10,", "8,11,15,", 
"15,", "6,", "7,15,", "6,8,", "15,", "2,15,", "15,", "15,", "6,", 
"15,", "7,15,", "15,", "6,7,8,", "3,4,10,16,", "8,", "15,", "2,15,", 
"6,8,", "15,", "15,", "8,11,", "8,", "8,", "15,", "6,", "15,", 
"6,8,12,13,", "2,15,", "10,20,", "15,", "8,", "15,", "15,", "15,", 
"6,8,11,", "15,", "15,", "8,12,15,", "8,11,12,", "2,15,", "7,", 
"16,", "15,", "15,", "7,8,9,11,", "7,", "8,", "6,8,11,12,", "15,", 
"8,11,", "6,8,", "6,12,", "15,", "6,8,11,", "15,", "15,", "11,", 
"8,", "5,7,11,12,", "5,", "10,"), MJA_8 = c(1, 2, 3, 4, 5, 3, 
2, 2, 6, 7, 2, 2, 8, 8, 1, 1, 1, 9, 1, 1, 9, 7, 9, 10, 9, 1, 
9, 1, 1, 1, 1, 1, 1, 1, 9, 9, 1, 1, 7, 1, 9, 1, 9, 1, 7, 9, 1, 
9, 1, 11, 1, 9, 1, 1, 1, 12, 7, 1, 1, 9, 1, 9, 1, 1, 9, 13, 1, 
1, 1, 1, 9, 9, 1, 9, 1, 7, 1, 1, 1, 1, 7, 1, 1, 1, 1, 9, 1, 1, 
7, 1, 1, 1, 9, 1, 1, 1, 9, 1, 9, 1, 1, 9, 1, 1, 1, 9, 1, 1, 1, 
1, 1, 9, 1, 1, 1, 3, 1, 1, 9, 1, 9, 1, 1, 1, 1, 9, 1, 1, 1, 7, 
2, 9, 1, 1, 9, 1, 1, 9, 9, 9, 1, 9, 1, 9, 1, 14, 1, 9, 1, 1, 
1, 9, 1, 1, 9, 9, 1, 7, 2, 1, 1, 9, 7, 9, 9, 1, 9, 9, 9, 1, 9, 
1, 1, 10, 9, 10, 15, 3), MJA = c(1, 2, 3, 4, 5, 3, 2, 2, 6, 7, 
2, 2, 8, 8, 1, 1, 1, 9, 1, 1, 9, 7, 9, 10, 9, 1, 9, 1, 1, 1, 
1, 1, 1, 1, 9, 9, 1, 1, 7, 1, 9, 1, 9, 1, 7, 9, 1, 9, 1, 11, 
1, 9, 1, 1, 1, 12, 7, 1, 1, 9, 1, 9, 1, 1, 9, 13, 1, 1, 1, 1, 
9, 9, 1, 9, 1, 7, 1, 1, 1, 1, 7, 1, 1, 1, 1, 9, 1, 1, 7, 1, 1, 
1, 9, 1, 1, 1, 9, 1, 9, 1, 1, 9, 1, 1, 1, 9, 1, 1, 1, 1, 1, 9, 
1, 1, 1, 3, 1, 1, 9, 1, 9, 1, 1, 1, 1, 9, 1, 1, 1, 7, 2, 9, 1, 
1, 9, 1, 1, 9, 9, 9, 1, 9, 1, 9, 1, 14, 1, 9, 1, 1, 1, 9, 1, 
1, 9, 9, 1, 7, 2, 1, 1, 9, 7, 9, 9, 1, 9, 9, 9, 1, 9, 1, 1, 10, 
9, 10, 15, 3), AHC = c(user_000 = 1L, user_001 = 2L, user_002 = 2L, 
user_003 = 3L, user_004 = 2L, user_005 = 2L, user_012 = 2L, user_013 = 2L, 
user_015 = 2L, user_017 = 4L, user_019 = 2L, user_020 = 2L, user_021 = 5L, 
user_022 = 5L, user_029 = 1L, user_030 = 1L, user_031 = 1L, user_033 = 6L, 
user_034 = 1L, user_035 = 1L, user_036 = 4L, user_038 = 4L, user_040 = 4L, 
user_042 = 1L, user_043 = 6L, user_044 = 1L, user_045 = 6L, user_046 = 1L, 
user_048 = 1L, user_049 = 1L, user_050 = 1L, user_053 = 1L, user_056 = 1L, 
user_058 = 1L, user_059 = 6L, user_060 = 6L, user_061 = 1L, user_062 = 1L, 
user_063 = 4L, user_064 = 1L, user_066 = 6L, user_067 = 1L, user_068 = 6L, 
user_070 = 1L, user_071 = 4L, user_072 = 6L, user_074 = 1L, user_075 = 6L, 
user_077 = 1L, user_079 = 6L, user_080 = 1L, user_084 = 6L, user_086 = 1L, 
user_087 = 1L, user_088 = 1L, user_089 = 6L, user_092 = 4L, user_093 = 1L, 
user_094 = 1L, user_095 = 6L, user_096 = 1L, user_097 = 6L, user_098 = 1L, 
user_101 = 1L, user_102 = 6L, user_103 = 1L, user_104 = 1L, user_107 = 1L, 
user_113 = 1L, user_116 = 1L, user_117 = 6L, user_119 = 6L, user_120 = 1L, 
user_121 = 6L, user_122 = 1L, user_125 = 4L, user_126 = 1L, user_127 = 1L, 
user_131 = 1L, user_133 = 1L, user_135 = 4L, user_136 = 1L, user_137 = 1L, 
user_138 = 1L, user_140 = 1L, user_142 = 6L, user_144 = 1L, user_145 = 1L, 
user_146 = 4L, user_148 = 1L, user_151 = 1L, user_152 = 1L, user_153 = 6L, 
user_155 = 1L, user_159 = 1L, user_162 = 1L, user_164 = 6L, user_166 = 1L, 
user_167 = 6L, user_168 = 1L, user_170 = 1L, user_172 = 6L, user_174 = 1L, 
user_176 = 1L, user_177 = 1L, user_178 = 6L, user_179 = 1L, user_181 = 1L, 
user_182 = 1L, user_183 = 1L, user_184 = 1L, user_187 = 6L, user_188 = 1L, 
user_190 = 1L, user_193 = 1L, user_197 = 2L, user_199 = 1L, user_200 = 1L, 
user_201 = 4L, user_203 = 1L, user_207 = 4L, user_208 = 1L, user_210 = 1L, 
user_211 = 1L, user_212 = 1L, user_216 = 4L, user_220 = 1L, user_222 = 1L, 
user_232 = 1L, user_234 = 4L, user_235 = 2L, user_239 = 6L, user_248 = 1L, 
user_249 = 1L, user_252 = 6L, user_253 = 1L, user_258 = 1L, user_263 = 6L, 
user_268 = 6L, user_272 = 6L, user_273 = 1L, user_277 = 4L, user_283 = 1L, 
user_286 = 6L, user_291 = 1L, user_294 = 2L, user_304 = 1L, user_305 = 6L, 
user_306 = 1L, user_313 = 1L, user_318 = 1L, user_319 = 6L, user_321 = 1L, 
user_323 = 1L, user_325 = 6L, user_335 = 6L, user_355 = 1L, user_358 = 4L, 
user_359 = 2L, user_362 = 1L, user_363 = 1L, user_370 = 6L, user_381 = 4L, 
user_389 = 6L, user_407 = 6L, user_411 = 1L, user_424 = 6L, user_430 = 6L, 
user_574 = 4L, user_576 = 1L, user_591 = 6L, user_592 = 1L, user_596 = 1L, 
user_599 = 1L, user_600 = 6L, user_602 = 1L, user_603 = 2L, user_604 = 2L
), KM = c(user_000 = 3L, user_001 = 3L, user_002 = 5L, user_003 = 3L, 
user_004 = 3L, user_005 = 4L, user_012 = 3L, user_013 = 1L, user_015 = 2L, 
user_017 = 3L, user_019 = 1L, user_020 = 1L, user_021 = 3L, user_022 = 3L, 
user_029 = 3L, user_030 = 3L, user_031 = 3L, user_033 = 3L, user_034 = 3L, 
user_035 = 3L, user_036 = 3L, user_038 = 3L, user_040 = 3L, user_042 = 3L, 
user_043 = 3L, user_044 = 3L, user_045 = 3L, user_046 = 3L, user_048 = 3L, 
user_049 = 3L, user_050 = 3L, user_053 = 3L, user_056 = 3L, user_058 = 3L, 
user_059 = 3L, user_060 = 3L, user_061 = 3L, user_062 = 3L, user_063 = 3L, 
user_064 = 3L, user_066 = 3L, user_067 = 3L, user_068 = 3L, user_070 = 3L, 
user_071 = 3L, user_072 = 3L, user_074 = 3L, user_075 = 3L, user_077 = 3L, 
user_079 = 3L, user_080 = 3L, user_084 = 3L, user_086 = 3L, user_087 = 3L, 
user_088 = 3L, user_089 = 3L, user_092 = 3L, user_093 = 3L, user_094 = 3L, 
user_095 = 3L, user_096 = 3L, user_097 = 3L, user_098 = 3L, user_101 = 3L, 
user_102 = 3L, user_103 = 3L, user_104 = 3L, user_107 = 3L, user_113 = 3L, 
user_116 = 3L, user_117 = 3L, user_119 = 3L, user_120 = 3L, user_121 = 3L, 
user_122 = 3L, user_125 = 3L, user_126 = 3L, user_127 = 3L, user_131 = 3L, 
user_133 = 3L, user_135 = 3L, user_136 = 3L, user_137 = 3L, user_138 = 3L, 
user_140 = 3L, user_142 = 3L, user_144 = 3L, user_145 = 3L, user_146 = 3L, 
user_148 = 3L, user_151 = 3L, user_152 = 3L, user_153 = 3L, user_155 = 3L, 
user_159 = 3L, user_162 = 3L, user_164 = 3L, user_166 = 3L, user_167 = 3L, 
user_168 = 3L, user_170 = 3L, user_172 = 3L, user_174 = 3L, user_176 = 3L, 
user_177 = 3L, user_178 = 3L, user_179 = 3L, user_181 = 3L, user_182 = 3L, 
user_183 = 3L, user_184 = 3L, user_187 = 3L, user_188 = 3L, user_190 = 3L, 
user_193 = 3L, user_197 = 3L, user_199 = 3L, user_200 = 3L, user_201 = 3L, 
user_203 = 3L, user_207 = 3L, user_208 = 3L, user_210 = 3L, user_211 = 3L, 
user_212 = 3L, user_216 = 3L, user_220 = 3L, user_222 = 3L, user_232 = 3L, 
user_234 = 3L, user_235 = 1L, user_239 = 3L, user_248 = 3L, user_249 = 3L, 
user_252 = 3L, user_253 = 3L, user_258 = 3L, user_263 = 3L, user_268 = 3L, 
user_272 = 3L, user_273 = 3L, user_277 = 3L, user_283 = 3L, user_286 = 3L, 
user_291 = 3L, user_294 = 3L, user_304 = 3L, user_305 = 3L, user_306 = 3L, 
user_313 = 3L, user_318 = 3L, user_319 = 3L, user_321 = 3L, user_323 = 3L, 
user_325 = 3L, user_335 = 3L, user_355 = 3L, user_358 = 3L, user_359 = 3L, 
user_362 = 3L, user_363 = 3L, user_370 = 3L, user_381 = 3L, user_389 = 3L, 
user_407 = 3L, user_411 = 3L, user_424 = 3L, user_430 = 3L, user_574 = 3L, 
user_576 = 3L, user_591 = 3L, user_592 = 3L, user_596 = 3L, user_599 = 3L, 
user_600 = 3L, user_602 = 3L, user_603 = 3L, user_604 = 3L)), row.names = c(NA, 
-178L), class = c("tbl_df", "tbl", "data.frame"))

标签: rcluster-analysisentropy

解决方案


推荐阅读