-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathindex.Rmd
170 lines (127 loc) · 6.08 KB
/
index.Rmd
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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
---
title: "ETC5510: Introduction to Data Analysis"
subtitle: "Semester 1 2020"
---
```{r setup, include = FALSE}
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
warning = FALSE
)
library(tidyverse)
library(knitr)
library(kableExtra)
library(glue)
library(googlesheets4)
library(lubridate)
library(ymlthis)
library(yaml)
monash_pals <- c(blue = "#4269a5",
purple = "#8e4f89",
green = "#39825a",
orange = "#dc6141")
```
```{r functions}
generate_readings <- function(week, part){
readings <- read_yaml("materials/readings.yml")
reading_list <- glue('readings[["Week {week}"]]\\
[["Readings"]]\\
[["{part}"]]')
eval(parse(text = reading_list)) %>%
glue_collapse("\n\n")
}
```
- Lecturer: Stuart Lee
- Chief Examiner: Di Cook
- Tutors: Steph Kobakian, Sherry Zhang
This is the course website. This page shows information about the consultation times, MoVE, and Schedule and lecture notes.
The "Assessments" tab above provides information about all assessment for ETC5510.
## Expectations
- Unless your question is a personal issue or an administrative matter, please do not send us direct email. The [ED site](https://edstem.org/) is appropriate for questions related to the course material.
- For personal or administrative issues, the email contact is: [email protected]
- ED is used for asking for help, reading and lab exercise quizzes and assignment turn in. Only your name and email is stored in this system.
- **If you register after the start of the semester** or if you
miss a lecture/lab, it is your responsibility to catch up with
missed material, learn about due dates for material to be turned in,
and getting assigned to a group for team work.
- **This class is now online, due to extenuating circumstances**. Please
do not attend in person, lectures will be made available online via moodle.
Given the current circumstances, it may be best to enrol second semester. An alternative is to complete
a microcredential offered online. Completing this is equivalent and gives you credit for ETC5510, and would. keep you on track for MBAt. This started Mar 2 but it is still possible to enrol up until Mar 11. More information is available at https://www.futurelearn.com/microcredentials/data-driven-decision-making.
## MoVE
Borrow a laptop: If you are enrolled in a MoVE unit and forget your laptop, or do not own one as yet, please visit Monash Connect to borrow a laptop for an activity or part of a day:
**Clayton: 7.45AM - 5PM**
You may be required to provide proof of ID (student card or personal ID) in order to borrow a laptop. We have a limited amount of laptops available for students to borrow (during semester only). Collect an IT Services ticket when you go to Monash Connect.
## Consultation times
Consultations begin from Week 2 (16th March)
- Steph Kobakian: Tuesday 12pm-1.30pm and Friday 1:30pm-3:00pm
- Sherry Zhang: Thursday 9am-12pm
- Stuart Lee: Monday 4:30pm-5:30pm and Wednesday 4:30pm-5:30pm
## Practical Exam
Download the practical exam [at this link](exam/mida-2020-s1-practical-exam-student-copy.zip) (Opens at 6pm).
## Project
Instructions for the group project is available via the [assessments tab](./assessment.html).
## Schedule
### The first week of semester March 9 - March 13 is online only
The lecturer and the tutors will be available
this week via the *ED* forum and Zoom
to answer any questions you have about the course or content.
The lecturer is available for consultation at the following times
- Monday 09/03 3-5pm
- Tuesday 10/03 4-6pm
- Wednesday 11/03 4-6pm
The tutors will be monitoring the ED forum during class times.
Lecture recordings for this week will be posted on Moodle. These are based on lectures recorded for ETC1010, so please ignore any reference to Rstudio
cloud and instead refer to the [Setup R handout](./setup.html).
### From the second week onwards
There are two lectorials every week:
* **Monday 6-8pm** (Room 321 - LTB Bldg 92)
* **Wednesday 6 - 8pm** (Room 321 - LTB Bldg 92)
There are no lectorials during the midsemester break.
```{r read-create-sheet, eval = FALSE}
# to be run interatively when google sheet is updated
google_schedule <- read_sheet("https://docs.google.com/spreadsheets/d/1YkHiIwPxJbmWdsnjow_ju59QIwJVMMZEcWzqARpCkco/edit?usp=sharing")
write_csv(google_schedule, path = "materials/schedule.csv")
```
```{r read-data-google}
schedule <- read_csv("materials/schedule.csv") %>%
mutate(Slides = case_when(
!is.na(HTML) & !is.na(PDF) ~ glue("<a class='fa fa-link' href='slides/{HTML}'></a> <a class='fa fa-file-pdf' href='slides/{PDF}'></a>"),
!is.na(HTML) ~ glue("<a class='fa fa-link' href='slides/{HTML}'></a>"),
!is.na(PDF) ~ glue("<a class='fa fa-file-pdf' href='slides/{PDF}'></a>"),
TRUE ~ ""
),
Exercise = case_when(
!is.na(Exercise) ~ glue("<a class='fa fa-link' href='exercises/{Exercise}'></a>"),
TRUE ~ ""
),
Topic = ifelse(is.na(Topic), "", Topic),
Exercise = ifelse(is.na(Exercise), "", Exercise)) %>%
# Date = janitor::excel_numeric_to_date(Date)) %>%
select(Week,
Lecture,
Date,
Slides,
Topic,
Exercise,
Readings,
Assessment) %>%
# generate readings
mutate(Readings = map2_chr(Week, Lecture, generate_readings))
midsem_break <- 8 # after which week (but there are 2 lectures per week)
schedule %>%
kable(escape = FALSE,
align = c("c", "c", "c", "c", "l", "l")) %>%
kable_styling(bootstrap_options = "striped",
fixed_thead = T) %>%
column_spec(1, width = "0.5cm") %>%
column_spec(2, width = "1cm") %>%
column_spec(3, width = "3cm") %>%
column_spec(4, width = "1cm") %>%
group_rows(group_label = "Midsemester Break",
start_row = midsem_break + 1,
end_row = midsem_break,
label_row_css = "background-color: #d9e1e8;") %>%
add_indent(1:midsem_break) %>% # this needs to be done to match up with above
add_indent((midsem_break+1):24) # this needs to be done to match up with above
```