Objetivo:

Seminários onde cada dupla de alunos apresenta um dos capítulos do livro:

• Salsburg, D. Uma senhora toma chá. Como a estatística revolucionou a ciência no século XX. Rio de Janeiro: Zahar, 2009.

Apresentações sucintas de no máximo 10 minutos

Organização dos seminários

• Tamanho de cada capítulo:

pgs <- c(17, 24, 36, 43, 49, 58, 64, 73, 80, 89, 99, 
         107, 113, 121, 131, 137, 144, 153, 164, 173, 
         181, 189, 195, 203, 210, 218, 223, 231, 237)
(len <- diff(c(pgs, 250))) ### tamanhos

 [1]  7 12  7  6  9  6  9
 [8]  7  9 10  8  6  8 10
[15]  6  7  9 11  9  8  8
[22]  6  8  7  8  5  8  6
[29] 13

• Capítulos selecionados:

(caps <- c(2:(length(len)-1))[len[-c(1,29)]>6])

 [1]  2  3  5  7  8  9 10
 [8] 11 13 14 16 17 18 19
[15] 20 21 23 24 25 27

• Atribuição dos capítulos às duplas

A T E N Ç Ã O para a alteração, confira abaixo

cap.g <- c(21, 2, 7, 14, 5, 27, 13, 20, 10, 11, 3, 17, 25, 19, 8, 9, 18, 24, 16, 23)

o.gr <- order(cap.g)
time <- c('20:45', '20:57', '21:09', '21:21', '21:32', '21:43')
text <- paste0('Cap', caps, ' -> Dup', o.gr) 
text <- c(rep('*', 3), text, '')
kable(matrix(text, ncol=6, byrow=TRUE,
             dimnames=list(paste0('Dia ', c(7*c(1, 3:4), 5), rep(c('/11','/12'), c(3,1))), time)))

Dupla 1 : 20160206 20160211 
Dupla 2 : 20160237 20160210 
Dupla 3 : 20160234 20160235 
Dupla 4 : 20160226 20165728 
Dupla 5 : 20160203 LUAN 
Dupla 6 : 20160220 20160212 
Dupla 7 : 20160214 20160231 
Dupla 8 : 20160204 20160233 
Dupla 9 : 20160205 20160227 
Dupla 10 : 20160213 20160208 
Dupla 11 : 20160242 20160225 
Dupla 12 : 20165740 20160194 
Dupla 13 : 20160239 20160215 
Dupla 14 : 20160218 20160228 
Dupla 15 : 20160230 20160216 
Dupla 16 : 20160221 20160217 
Dupla 17 : 20160240 20160238 
Dupla 18 : 20160229
Dupla 19 : 20160222 20160223