From 713ab2b282a29a33d6de1aaee34cb4c12987168f Mon Sep 17 00:00:00 2001 From: Iury Gregory Melo Ferreira Date: Thu, 28 Feb 2013 00:33:41 -0300 Subject: [PATCH] Caracteristicas ok US10 --- US10 - graficosAgrupamento.R | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/US10 - graficosAgrupamento.R b/US10 - graficosAgrupamento.R index 4a376fa..ba05313 100644 --- a/US10 - graficosAgrupamento.R +++ b/US10 - graficosAgrupamento.R @@ -4,29 +4,29 @@ dados <- read.csv("dados/TabelaParaPerfis.csv",header=T) -agrupamento1 <- kmeans(dados,3) -agrupamento2 <- kmeans(dados,4) -agrupamento3 <- kmeans(dados,5) -agrupamento4 <- kmeans(dados,6) +agrupamento1 <- kmeans(dados[,-1],3) +agrupamento2 <- kmeans(dados[,-1],4) +agrupamento3 <- kmeans(dados[,-1],5) +agrupamento4 <- kmeans(dados[,-1],6) png("AgrupamentoK3.png",bg="transparent",width = 800, height = 600) -plot(dados$nota.final.pratica,dados$tempo.total.estudo, col = agrupamento1$cluster) +plot(dados$atividade,dados$tempo.total.estudo, col = agrupamento1$cluster) points(agrupamento1$centers, col = 1:2, pch = 8, cex=2) dev.off() png("AgrupamentoK4.png",bg="transparent",width = 800, height = 600) -plot(dados$nota.final.pratica,dados$tempo.total.estudo, col = agrupamento2$cluster) +plot(dados$atividade,dados$tempo.total.estudo, col = agrupamento2$cluster) points(agrupamento2$centers, col = 1:2, pch = 8, cex=2) dev.off() png("AgrupamentoK5.png",bg="transparent",width = 800, height = 600) -plot(dados$nota.final.pratica,dados$tempo.total.estudo, col = agrupamento3$cluster) +plot(dados$atividade,dados$tempo.total.estudo, col = agrupamento3$cluster) points(agrupamento3$centers, col = 1:2, pch = 8, cex=2) dev.off() png("AgrupamentoK6.png",bg="transparent",width = 800, height = 600) -plot(dados$nota.final.pratica,dados$tempo.total.estudo, col = agrupamento4$cluster) +plot(dados$atividade,dados$tempo.total.estudo, col = agrupamento4$cluster) points(agrupamento4$centers, col = 1:2, pch = 8, cex=2) dev.off()