-
Notifications
You must be signed in to change notification settings - Fork 0
/
slides-kuliah-umum-metode-statistik.qmd
144 lines (114 loc) · 3.82 KB
/
slides-kuliah-umum-metode-statistik.qmd
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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
---
title: "STAT503 Metode Statistik"
subtitle: "Koneksi Metode Statistik dan Dunia Kerja"
author: ""
date: 2023/11/21
date-format: long
format:
revealjs:
theme: night
transition: fade
multiplex: true
---
```{r}
#| label: pengaturan
#| include: false
library(tidyverse)
```
## Tujuan {.smaller}
Setelah mengikuti kuliah umum Metode Statistik, mahasiswa diharapkan
- memiliki wawasan bagaimana Metode Statistik (dan kompetensi statistik secara umum) digunakan dalam dunia kerja; dan
- memiliki pengetahuan dan keterampilan bagaimana menggunakan metode-metode statistik untuk memecahkan berbagai permasalahan statistik.
## Rencana kegiatan {style=".smaller"}
::: panel-tabset
## Lini masa
```{r}
#| label: fig-lini-masa-kegiatan
#| echo: false
#| fig-cap: Lini masa kuliah umum Metode Statistik
#| fig-asp: 0.4
acara <- data.frame(
kegiatan = c("Pendahuluan",
"Sambutan",
"Penyampaian materi",
"Tanya jawab",
"Penutup"),
mulai = c(0, 1, 2, 6, 8),
tengah = c(0.5, 1.5, 4, 7, 8.5),
durasi = c(1, 1, 4, 2, 1),
akhir = c(1, 2, 6, 8, 9))
acara %>%
mutate(kegiatan = fct_reorder(kegiatan,
mulai)) %>%
ggplot(aes(x = tengah, y = kegiatan)) +
geom_point() +
geom_tile(aes(width = durasi,
fill = kegiatan),
col = "black") +
theme_bw() +
theme(axis.title = element_blank(),
axis.text.x = element_blank(),
axis.ticks.x = element_blank(),
legend.position = "none")
```
## Kode
``` r
acara <- data.frame(
kegiatan = c("Pendahuluan",
"Sambutan",
"Penyampaian materi",
"Tanya jawab",
"Penutup"),
mulai = c(0, 1, 2, 6, 8),
tengah = c(0.5, 1.5, 4, 7, 8.5),
durasi = c(1, 1, 4, 2, 1),
akhir = c(1, 2, 6, 8, 9))
acara %>%
mutate(kegiatan = fct_reorder(kegiatan,
mulai)) %>%
ggplot(aes(x = tengah, y = kegiatan)) +
geom_point() +
geom_tile(aes(width = durasi,
fill = kegiatan),
col = "black") +
theme_bw() +
theme(axis.title = element_blank(),
axis.text.x = element_blank(),
axis.ticks.x = element_blank(),
legend.position = "none")
```
:::
## Tentang narasumber {.smaller}
::: columns
**Dahiri, S.Si., M.Sc**
::: {.column width="70%"}
Beliau bekerja di Pusat Analisis dan Akuntabilitas Keuangan Negara Badan Keahlian Setjen DPR RI. Tugas beliau adalah membuat kajian-kajian terkait ekonomi makro dan menelaah Anggaran Pendapatan dan Belanja Negara (APBN). Selain itu, beliau terlibat dalam penyusunan Naskah Akademik dan Rancangan Undang-Undang (RUU). Keterampilan beliau adalah analisis data dan *forecasting*.
- Ahli Muda Pusat Analisis dan Akuntabilitas Keuangan Negara Badan Keahlian Setjen DPR RI.
- CEO Kenzo Solution
:::
::: {.column width="30%"}
{fig-align="center"}
:::
:::
## Materi kuliah umum
::: columns
::: {.column width="60%"}
Materi kuliah umum dapat diakses melalui tautan <https://bit.ly/metode_statistika>. Materi tersebut juga dapat diakses dengan memindai kode QR di samping.
:::
::: {.column width="40%"}
{fig-alt="Kode QR untuk mengakses materi kuliah umum Metode Statistik"}
:::
:::
# Tanya jawab
Silakan ajukan pertanyaan kepada narasumber.
## Evaluasi pelaksanaan kuliah umum
::: columns
::: {.column width="60%"}
Bagi para peserta kuliah umum, silakan berikan **penilaian dan masukan** terhadap pelaksanaan kuliah umum tersebut melalui tautan <https://s.id/KU-MetStat> atau dengan memindai kode QR di samping.
:::
::: {.column width="40%"}
{fig-alt="Kode QR untuk formulir evaluasi kuliah umum Metode Statistik" fig-align="center"}
:::
:::
# Terima kasih
Semoga menambah wawasan tentang metode-metode statistik dan dunia kerja. Tetap semangat!