US10 - Analise Tendencia A Grupos.R

# Codigo que cria as tabelas dos agrupamentos dos dados
# Andrey Menezes - versão 2.0 (Fevereiro 2013)

library("FNN")

hopkins = function(dados, p, objetos, minimos) {
  
  amostra = sample(length(dados[,1]), size=p, replace = FALSE)
  
  soma_w = 0
  for(i in 1:length(amostra)) {
    soma_w = soma_w + minimos[i]
  }
  
  soma_u = 0
  for(i in 1:length(objetos[,1])) {
    dist = knnx.dist(as.matrix(dados),as.matrix(objetos),2,"kd_tree")
    soma_u = sum(dist[,2])
  }
  if(soma_u > 0) {
    return(soma_u/(soma_u + soma_w))
  } else {return(0)}
}

hopkins.table = data.frame()

minimo = knn.dist(dados, k=1, algorithm="kd_tree")
stats = 0

col=0
for(n in 1:10) {
  count=0
  col=col+1
  for(i in 2:(length(dados)-1)) {
    for(e in (i+1):length(dados)) {
      if(i != e) {
        objetos = data.frame(runif(60, min(dados[,i]), max(dados[,i])), runif(60, min(dados[,e]), max(dados[,e])))
        parcial = hopkins(dados[,c(i,e)], 60, objetos, minimo)
        if (parcial > stats) {
          stats = parcial
          atrib1 = i
          atrib2 = e
        }
        count = count+1
        hopkins.table[col,count] = parcial
      }
    }
  }
}
colnames(hopkins.table) = c("A_Q", "A_C", "A_TA", "A_AS", "A_QS", "A_CS", "Q_C", "Q_TA", "Q_AS", "Q_QS", "Q_CS", "C_TA", "C_AS", "C_QS", "C_CS", "TA_AS", "TA_QS", "TA_CS", "AS_QS", "AS_CS", "QS_CS")