From 5aeb83767bf2ec7106491a47e8192ec9dbfc5810 Mon Sep 17 00:00:00 2001 From: Andrey Nogueira Menezes Date: Wed, 27 Feb 2013 18:36:31 -0300 Subject: [PATCH] =?UTF-8?q?US10=20atualiza=C3=A7=C3=A3o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- US10 - Analise Tendencia A Grupos.R | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/US10 - Analise Tendencia A Grupos.R b/US10 - Analise Tendencia A Grupos.R index f518188..993b616 100644 --- a/US10 - Analise Tendencia A Grupos.R +++ b/US10 - Analise Tendencia A Grupos.R @@ -34,8 +34,8 @@ for(n in 1:10) { 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) + objetos = data.frame(runif(15, min(dados[,i]), max(dados[,i])), runif(15, min(dados[,e]), max(dados[,e]))) + parcial = hopkins(dados[,c(i,e)], 15, objetos, minimo) if (parcial > stats) { stats = parcial atrib1 = i @@ -47,4 +47,5 @@ for(n in 1:10) { } } } -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") + +#colnames(hopkins.table) = c()