Caracteristicas ok US10

AndreyMenezes · Feb 28, 2013 · 713ab2b · 713ab2b
1 parent e0be7c1
commit 713ab2b
Showing 1 changed file with 8 additions and 8 deletions.
diff --git 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()