diff --git a/US10 - criacaoTabela.R b/US10 - criacaoTabela.R
new file mode 100644
index 0000000..a34bfb1
--- /dev/null
+++ b/US10 - criacaoTabela.R	
@@ -0,0 +1,30 @@
+#Script para criacao de tabela para analisar agrupamento e perfis
+#Iury Gregory Melo Ferreira - vers�o 2.0 (Fevereiro 2013)
+
+library(plyr)
+
+dados.atividade <- read.csv("dados/AgrupamentoAtividade.csv",header=T)
+dados.atividade <- dados.atividade[,-1]
+dados.tempo <- read.csv("dados/tableSumDiscipline.csv",header=T)
+dados.sessao <- read.csv("dados/TableSessionLength.csv",header=T)
+dados.geral <- read.csv("dados/Geral.csv",header=T)
+dados.exercicios <- read.csv("dados/exercicios-20112.csv",header=F)
+
+colnames(dados.exercicios) <- c("matricula","questao","turma","dataHora","submissao","nota")
+dados.exercicios <- dados.exercicios[,1:2]
+dados.exercicios <- dados.exercicios[order(dados.exercicios$matricula,dados.exercicios$questao,decreasing = F),]
+dados.exercicios <- unique(dados.exercicios)
+
+dados.numExercicios <- count(dados.exercicios,"matricula")
+dados.tempo$sumSession <- dados.tempo$sumSession/3600
+dados.tamanhoSessao <- with(dados.sessao, aggregate(session,list(matricula),FUN=median))
+colnames(dados.tamanhoSessao) <- c("matricula","mediana.sessao")
+dados.nota <- subset(dados.geral,nota.final.pratica >= 0,select=c(matricula,nota.final.pratica))
+
+dados <- merge(dados.tamanhoSessao,dados.nota,by.x="matricula",by.y="matricula")
+dados <- merge(dados,dados.numExercicios,by.x="matricula",by.y="matricula")
+dados <- merge(dados,dados.tempo,by.x="matricula",by.y="matricula")
+dados <- merge(dados,dados.atividade,by.x="matricula",by.y="matricula")
+
+
+write.table(dados,"dados/TabelaParaPerfis.csv",sep=",",row.names=F,col.names=T)
\ No newline at end of file
diff --git a/dados/AgrupamentoAtividade.csv b/dados/AgrupamentoAtividade.csv
new file mode 100644
index 0000000..8f4661f
--- /dev/null
+++ b/dados/AgrupamentoAtividade.csv
@@ -0,0 +1,101 @@
+"","matricula","atividade"
+"1","107076E4",0.176
+"2","10E8A59E",0.312
+"3","13085463",0.32
+"4","1397BFB0",0.376
+"5","14A1B78B",0.264
+"6","15A3743B",0.224
+"7","15EA15E5",0.256
+"8","1706D43",0.208
+"9","1823A1FA",0.168
+"10","189E4323",0.256
+"11","19449717",0.352
+"12","1A25F6BF",0.32
+"13","1ABFFBDD",0.272
+"14","1B52DD48",0.072
+"15","1B81A33E",0.432
+"16","1C897F15",0.256
+"17","1CCD2085",0.272
+"18","1DF2A12E",0.44
+"19","210B0D56",0.296
+"20","21604216",0.28
+"21","21C00083",0.2
+"22","224511B3",0.192
+"23","22EB47AA",0.344
+"24","240164B6",0.208
+"25","2556AF8C",0.28
+"26","2561F105",0.048
+"27","25762941",0.304
+"28","258DFC4B",0.376
+"29","267C1E34",0.296
+"30","26EA2FA",0.216
+"31","2777E5EE",0.28
+"32","281286BC",0.264
+"33","28E49A9D",0.16
+"34","2B989949",0.416
+"35","32B00B44",0.272
+"36","347D5E36",0.384
+"37","37594F45",0.432
+"38","3826E0DE",0.368
+"39","390C0CCC",0.328
+"40","3A1B84F4",0.416
+"41","3BC456D5",0.256
+"42","3FE45559",0.136
+"43","4195063D",0.096
+"44","445E679D",0.176
+"45","4482494C",0.256
+"46","44AF14C1",0.52
+"47","44D029E4",0.16
+"48","46484C5E",0.616
+"49","48295835",0.32
+"50","492E11B4",0.12
+"51","4AD45AC5",0.32
+"52","4B929F6",0.224
+"53","4C84103A",0.28
+"54","4D98EE47",0.336
+"55","4DA185E9",0.024
+"56","51FE3830",0.304
+"57","52C319A1",0.16
+"58","52E571B8",0.144
+"59","55BA642E",0.192
+"60","562A867F",0.36
+"61","5978A120",0.32
+"62","5B8F96B8",0.208
+"63","5CD8B4FE",0.16
+"64","5D73E08B",0.272
+"65","5DEBE97D",0.224
+"66","5EA91E42",0.4
+"67","60BAF986",0.128
+"68","619B5433",0.232
+"69","63116A24",0.408
+"70","64B26A18",0.176
+"71","673B031F",0.32
+"72","67657F86",0.4
+"73","68151142",0.36
+"74","6878BF80",0.24
+"75","68FA8B73",0.192
+"76","69DEEC46",0.272
+"77","6A197CF",0.384
+"78","6BA5CF35",0.328
+"79","6C643AAF",0.144
+"80","70F93A3B",0.24
+"81","71F3C736",0.416
+"82","7365085E",0.176
+"83","740BC298",0.4
+"84","74E3795C",0.208
+"85","77089DA4",0.184
+"86","77A35CA",0.312
+"87","792B1580",0.2
+"88","79CBE190",0.312
+"89","79D7BD5B",0.376
+"90","7BA159DE",0.192
+"91","7BCB919D",0.456
+"92","7BF33A4A",0.304
+"93","7C52AF6D",0.2
+"94","7DCD514D",0.432
+"95","8CAB3DB",0.144
+"96","ADBC154",0.192
+"97","B30252C",0.16
+"98","B5D2F64",0.16
+"99","E3A19A",0.232
+"100","F952D04",0.312
diff --git a/dados/TabelaParaPerfis.csv b/dados/TabelaParaPerfis.csv
new file mode 100644
index 0000000..a08987a
--- /dev/null
+++ b/dados/TabelaParaPerfis.csv
@@ -0,0 +1,78 @@
+"matricula","mediana.sessao","nota.final.pratica","freq","sumSession","atividade"
+"107076E4",13.5,2.7,88,24.8216666666667,0.176
+"10E8A59E",26.5,5.8,160,24.78,0.312
+"13085463",25.5,6.7,151,30.2994444444444,0.32
+"1397BFB0",30.5,8.9,164,39.3166666666667,0.376
+"14A1B78B",17,7,98,24.7791666666667,0.264
+"15A3743B",17.5,7.4,128,33.3169444444444,0.224
+"15EA15E5",20.5,3.4,96,22.1247222222222,0.256
+"189E4323",17.5,1.7,94,18.7197222222222,0.256
+"19449717",25,7.6,140,15.7738888888889,0.352
+"1A25F6BF",25,5.6,134,40.9519444444444,0.32
+"1B81A33E",38,9.1,162,28.3016666666667,0.432
+"1DF2A12E",36.5,8.7,170,35.2508333333333,0.44
+"210B0D56",21,8.4,162,29.5647222222222,0.296
+"21604216",20.5,7.1,143,19.615,0.28
+"22EB47AA",25,7.7,158,44.9672222222222,0.344
+"240164B6",15.5,2.1,66,14.0444444444444,0.208
+"2556AF8C",26,6,148,28.1441666666667,0.28
+"2561F105",5.5,0.6,30,4.69055555555556,0.048
+"25762941",28.5,7.8,153,42.1838888888889,0.304
+"258DFC4B",28,7.6,144,61.1961111111111,0.376
+"267C1E34",24,8.2,140,23.3552777777778,0.296
+"26EA2FA",15.5,7.1,106,20.1952777777778,0.216
+"2777E5EE",27.5,6.2,138,43.8005555555556,0.28
+"281286BC",20.5,8.5,163,25.1522222222222,0.264
+"28E49A9D",12.5,3,88,22.5136111111111,0.16
+"2B989949",32,5.6,165,41.0152777777778,0.416
+"37594F45",33.5,7.2,146,55.2363888888889,0.432
+"3826E0DE",37.5,7.6,167,57.2788888888889,0.368
+"390C0CCC",26.5,7,164,21.2644444444444,0.328
+"3A1B84F4",34,7.6,157,43.9616666666667,0.416
+"3FE45559",9.5,3.9,50,3.49972222222222,0.136
+"4195063D",6.5,0.9,25,5.06777777777778,0.096
+"445E679D",12,7.2,111,16.9916666666667,0.176
+"4482494C",20.5,8.5,151,21.6413888888889,0.256
+"44AF14C1",47.5,7.2,172,78.7819444444444,0.52
+"44D029E4",13.5,1.3,58,16.4722222222222,0.16
+"46484C5E",60.5,7.5,170,64.8202777777778,0.616
+"492E11B4",9,2.5,44,10.8863888888889,0.12
+"4AD45AC5",22.5,9.1,152,30.8222222222222,0.32
+"4B929F6",15.5,8.3,163,8.73638888888889,0.224
+"4C84103A",21,8.4,167,20.9663888888889,0.28
+"4D98EE47",27,8.2,158,34.1372222222222,0.336
+"51FE3830",24,7.2,154,57.1925,0.304
+"52C319A1",12.5,4.3,93,28.3625,0.16
+"52E571B8",11,3.1,57,6.36166666666667,0.144
+"55BA642E",15.5,7.1,115,14.3077777777778,0.192
+"562A867F",27.5,7.9,163,22.3955555555556,0.36
+"5978A120",24,8.7,156,26.0688888888889,0.32
+"5B8F96B8",16.5,6.4,112,17.2477777777778,0.208
+"5CD8B4FE",11,6.2,69,4.8225,0.16
+"5EA91E42",31,8.1,140,36.0741666666667,0.4
+"60BAF986",8.5,2.8,42,6.82027777777778,0.128
+"63116A24",33.5,8.3,170,29.1905555555556,0.408
+"64B26A18",12,1.4,43,5.49583333333333,0.176
+"673B031F",25.5,6.8,136,35.1938888888889,0.32
+"67657F86",31.5,7.2,145,34.4130555555556,0.4
+"6878BF80",17.5,7.6,117,17.5563888888889,0.24
+"68FA8B73",15,8.3,155,22.98,0.192
+"6A197CF",29.5,7.2,140,30.9597222222222,0.384
+"6C643AAF",12,1.3,41,6.36194444444444,0.144
+"71F3C736",36,8.4,159,48.3969444444444,0.416
+"7365085E",13,2.5,126,9.48361111111111,0.176
+"740BC298",36,3.8,152,48.8577777777778,0.4
+"74E3795C",14,5.6,99,8.45111111111111,0.208
+"77089DA4",12.5,2.9,51,11.2055555555556,0.184
+"77A35CA",22.5,9.2,128,21.5511111111111,0.312
+"792B1580",15.5,2.6,97,17.1855555555556,0.2
+"79CBE190",26.5,7.5,142,32.6002777777778,0.312
+"7BCB919D",37.5,7.8,165,49.7938888888889,0.456
+"7BF33A4A",23,6.5,110,21.5213888888889,0.304
+"7C52AF6D",14,7.8,137,18.4216666666667,0.2
+"7DCD514D",38.5,7.2,162,48.1572222222222,0.432
+"8CAB3DB",10.5,1.6,48,14.9172222222222,0.144
+"ADBC154",13,5.8,99,22.1677777777778,0.192
+"B5D2F64",11.5,3.1,67,14.9197222222222,0.16
+"E3A19A",15,6.8,111,17.1080555555556,0.232
+"F952D04",24,8.7,161,19.2902777777778,0.312