-
Notifications
You must be signed in to change notification settings - Fork 1
/
cronograma.Rnw
113 lines (100 loc) · 3.65 KB
/
cronograma.Rnw
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
\documentclass[a4paper, 11pt]{article}
\usepackage[margin=1.2cm, landscape]{geometry}
\pagenumbering{gobble}
\usepackage[brazil]{babel}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{tabularx}
\usepackage{booktabs}
\usepackage{makecell}
\usepackage{multicol}
\usepackage{float}
\usepackage{mathpazo}
\begin{document}
\begin{center}
\bfseries
UNIVERSIDADE DE SÃO PAULO \\
ESCOLA SUPERIOR DE AGRICULTURA ``LUIZ DE QUEIROZ`` \\
DEPARTAMENTO DE CIÊNCIAS EXATAS \\[0.2cm]
LCE0216 - Introdução à Bioestatística Florestal \\
Professora responsável: Clarice Garcia Borges Demétrio
\end{center}
<<include=FALSE>>=
library(lubridate)
library(xtable)
begin <- as_date(dmy("26/02/2018"))
final <- as_date(dmy("06/07/2018"))
dates <- seq(begin, final, 1)
dates <- dates[wday(dates) %in% c(3, 5)]
contents <- c(
"Apresentação, motivação e início de estatística descritiva",
"Estatística descritiva: representação tabular e gráfica",
"Estatística descritiva: medidas de tendência central e dispersão",
"Estatística descritiva: medidas de tendência central e dispersão",
"Probabilidade: definições e teoremas",
"Probabilidade: definições e teoremas",
"Prof. Thadeu: Bioestatística florestal",
"Prof. Thadeu: Coleta de dados e tabulação",
"\\textcolor{red}{FERIADO: Semana santa}",
"\\textcolor{red}{FERIADO: Semana santa}",
"Probabilidade condicional e indepêndencia de eventos",
"Distribuições de probabilidade",
"Distribuições de probabilidade",
"\\textbf{PRIMEIRA PROVA (P1)}",
"Esperança matemática",
"Esperança matemática",
"Distribuições: Binomial, Poisson, Exponencial, Weibull e Normal",
"Distribuições: Binomial, Poisson, Exponencial, Weibull e Normal",
"\\textcolor{red}{FERIADO: Dia do trabalho}",
"Distribuições: Binomial, Poisson, Exponencial, Weibull e Normal",
"Noções de amostragem e distribuições amostrais",
"Distribuições: t-Student, F-Snedecor e Qui-quadrado",
"Inferência estatística: definição e motivação",
"Inferência estatística: definição e motivação",
"\\textbf{SEGUNDA PROVA (P2)}",
"Inferência estatística: estimação pontual",
"Inferência estatística: estimação intervalar",
"\\textcolor{red}{FERIADO: Corpus Christi}",
"Inferência estatística: testes de hipóteses",
"Inferência estatística: testes de hipóteses",
"Regressão e correlação linear simples",
"Regressão e correlação linear simples",
"Regressão e correlação linear simples",
"Análise de tabelas de contingência",
"Análise de tabelas de contingência",
"\\textbf{TERCEIRA PROVA (P3)}",
"\\textbf{PROVA SUBSTITUTIVA}",
"\\textbf{REVISÃO DE PROVAS}"
)
schedule <- data.frame("Datas" = format(dates, "%d/%m (%A)"),
"Conteúdo" = contents)
# schedule <- schedule[order(wday(dates)), ]
@
\begin{table}[H]
\centering \small
\renewcommand{\arraystretch}{1.5}
\caption{Cronograma de aulas do primeiro semestre de 2018.}
\begin{multicols}{2}
\begin{tabularx}{0.5\textwidth}{lllll}
\toprule
<<echo=FALSE, results="asis">>=
print.xtable(xtable(schedule[1:19, ]),
only.contents = TRUE,
booktabs = TRUE,
include.rownames = FALSE,
sanitize.text.function = identity)
@
\end{tabularx}
\begin{tabularx}{0.5\textwidth}{lllll}
\toprule
<<echo=FALSE, results="asis">>=
print.xtable(xtable(schedule[20:38, ]),
only.contents = TRUE,
booktabs = TRUE,
include.rownames = FALSE,
sanitize.text.function = identity)
@
\end{tabularx}
\end{multicols}
\end{table}
\end{document}