SEMINÁRIOS FINAIS no dia 08/08, 13h30. Tempo para apresentação de 15 à 20 minutos com 10 minutos para questionamentos.
Abaixo o histórico de atividades realizadas em classe e atividades extra classe aplicadas.
##----------------------------------------------------------------------------- u <- c("Coutinho", "Gonzales", "Velazco", "Lopes", "Utima", "Nascimento", "Portugal", "Deiss", "Rickli", "Lima", "Forero", "Pinotti", "Paladini", "Witt", "Cavalieri", "Procopiuk", "Triches", "Roese", "Bedrij", "Nazareno") e11 <- c("11.10", "11.11", "11.12", "11.13", "11.14", "11.15", "11.17", "11.35", "11.3", "11.4", "11.5", "11.60", "11.6", "11.70", "11.71", "11.72", "11.73", "11.74", "11.76", "11.78", "11.79", "11.7", "11.80", "11.81", "11.82", "11.83", "11.85", "11.86", "11.87", "11.88", "11.8", "11.90", "11.91", "11.92", "11.94", "11.95", "11.96", "11.9") e12 <- c("12.100", "12.104", "12.10", "12.11", "12.12", "12.13", "12.14", "12.16", "12.17", "12.18", "12.19", "12.5", "12.6", "12.72", "12.73", "12.74", "12.75", "12.7", "12.8", "12.96", "12.97", "12.98", "12.99", "12.9") ## Sorteando. set.seed(12345) s11 <- c(sample(u, length(e11)-length(u)), sample(u, length(u))) s12 <- c(sample(u, length(e12)-length(u)), sample(u, length(u))) ## Juntando e ordenando. exerc <- data.frame(aluno=c(s11, s12), ex=c(e11, e12)) exerc <- exerc[with(exerc, order(aluno, ex)),] nm <- max(table(exerc$aluno)) ## Deixando no formato amplo. e <- as.data.frame(do.call(rbind, lapply(split(exerc, exerc$aluno), function(i){ v <- vector(mode="character", length=nm) v[seq_along(i$ex)] <- as.character(i$ex) v <- c(as.character(i$aluno[1]), v) v }))) names(e) <- c("Aluno", sprintf("Ex%i", 1:(ncol(e)-1))) e[,-1] Ex1 Ex2 Ex3 Ex4 Bedrij 11.72 11.78 12.12 Cavalieri 11.10 11.94 12.10 12.13 Coutinho 11.5 11.90 12.17 Deiss 11.14 11.9 12.11 12.98 Forero 11.4 11.81 12.7 Gonzales 11.60 11.91 12.74 Lima 11.70 11.82 12.72 Lopes 11.74 11.76 12.73 Nascimento 11.6 11.7 12.16 Nazareno 11.71 11.92 12.19 Paladini 11.86 12.100 12.97 Pinotti 11.73 11.95 12.6 Portugal 11.35 11.8 12.99 Procopiuk 11.13 11.80 12.18 Rickli 11.3 11.79 12.5 Roese 11.85 12.8 Triches 11.11 11.83 12.75 Utima 11.17 11.88 12.14 Velazco 11.15 11.87 12.104 12.9 Witt 11.12 11.96 12.96 Romano 11.13 11.79 12.72 ##-----------------------------------------------------------------------------
Passos para disponibilizar arquivos em upload no DataFileHost.