-
Notifications
You must be signed in to change notification settings - Fork 0
/
FanChengCV.Rmd
197 lines (173 loc) · 9.18 KB
/
FanChengCV.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
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
---
docname: Curriculum Vitae
name: Fan Cheng
address: "Sydney, Australia."
www: fancheng.me
# phone: +61 3 9905 1385
email: "fancheng.me@gmail.com"
twitter: fanchengfc
github: ffancheng
linkedin: fan-cheng
date: "`r format(Sys.time(), '%B %Y')`"
headcolor: "880020"
output:
vitae::hyndman:
keep_tex: true
header_includes:
- \ExecuteBibliographyOptions{useprefix=true}
- renewcommand{\bibfont}{\normalfont\fontsize{12}{15}\sffamily}
# - \pagenumbering{gobble}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(tidyverse)
library(vitae)
source("baretable.R")
```
\thispagestyle{empty}
# Education and qualifications
```{r degrees, results='asis'}
tribble(
~Start, ~End, ~Degree, ~Institution,
2019, 2023, "Ph.D. in Statistics", "Monash University, Australia",
2016, 2018, "M. in Applied Statistics", "Central University of Finance and Economics, China",
2012, 2016, "B.Ec in Statistics", "Central University of Finance and Economics, China"
) %>%
arrange(-Start) %>%
mutate(End = replace_na(as.character(End), "")) %>%
mutate(Years = paste(Start, "--", End, sep = "")) %>%
select(Years, Degree, Institution) %>%
baretable()
```
# Employment history
```{r employment, results='asis'}
tribble(
~Start, ~End, ~Position,
2022.10, NA, "\\textbf{Senior Research Officer}, NSW Bureau of Crime Statistics and Research, Department of Communities and Justice",
2020.07, 2023.07, "\\textbf{Teaching Associate}, Department of Econometrics and Business Statistics, Monash University",
NA, NA, "- \\href{https://handbook.monash.edu/2021/units/ETC5523?year=2021}{ETC5523 Communicating with data, 2021S2 (Purple Letter for Outstanding Unit Evaluation of Teaching)}",
NA, NA, "- \\href{https://handbook.monash.edu/2021/units/ETC5513?year=2021}{ETC5513 Collaborative and reproducible practices, 2021S1, 2022S1, 2023S1 (Purple Letter)}",
NA, NA, "- \\href{https://handbook.monash.edu/2020/units/ETF5500?year=2020}{ETF3500/ETF5500 High Dimensional Data Analysis, 2020S2, 2021S2 (Purple Letter)}",
2019.07, NA, "\\textbf{Data Fluency Associate Instructor}, Library Research Division, Monash University Library",
NA, NA, "- \\href{https://www.monash.edu/data-fluency/home}{Monash Data Fluency workshops} on R, Python, Git, Unix, HPC, etc.",
2020.07, 2020.12, "\\textbf{Course Mentor}, Monash University Online Microcredential \\href{https://www.futurelearn.com/microcredentials/data-driven-decision-making?utm_source=faculty_website&utm_medium=monash_organic_referrer&utm_campaign=mc_jan}{\\textit{Data Science: Data-Driven Decision Making}}",
2018.07, 2019.01, "\\textbf{Research Assistant}, School of Statistics and Mathematics, Central University of Finance and Economics"
) %>%
# arrange(-Start) %>%
mutate(End = replace_na(as.character(End), "")) %>%
mutate(Years = paste0(format(Start ,drop0Trailing = F), "--", End)) %>%
mutate(Years = ifelse(is.na(Start), "", Years)) %>%
select(Years, Position) %>%
baretable()
```
# Internship experience
```{r internship, results='asis'}
tribble(
~Start, ~End, ~Position,
2016.09, 2017.09, "\\textbf{Big Data Analyst}, Shanghai Power Xene Digital Technology Company, Beijing, China",
2016.03, 2016.04, "\\textbf{Research Assistant}, China Life Insurance Company Limited, Beijing, China",
2015.01, 2015.02, "\\textbf{Consultant Assistant}, Industrial and Commercial Bank of China (ICBC), Hubei, China",
) %>%
arrange(-Start) %>%
mutate(End = replace_na(as.character(End), "")) %>%
mutate(Years = paste(Start, "--", End, sep = "")) %>%
select(Years, Position) %>%
baretable()
```
# Research experience
```{r researchmlann, results='asis'}
awards <- tribble(
~Start, ~End, ~Project,
2019.02, NA, "\\textbf{Main Participant}, Monash Ph.D. project: Manifold Learning on Empirical Probability Distributions",
) %>%
arrange(-Start) %>%
mutate(End = replace_na(as.character(End), "")) %>%
mutate(Years = paste(Start, "--", End, sep = "")) %>%
select(Years, Project) %>%
baretable()
```
* Supervised by [Prof. Rob J Hyndman](https://robjhyndman.com) and [Associate Prof. Anastasios Panagiotelis](https://anastasiospanagiotelis.netlify.app/).
* Successfully completed the confirmation and the mid-candidature milestones.
* Completed the main algorithm and finished all experiments using MonARCH HPC Cluster.
* Submitted the working paper titled [*Computationally Efficient Learning of Statistical Manifolds*](https://arxiv.org/abs/2103.11773).
```{r researchcufe, results='asis'}
awards <- tribble(
~Start, ~End, ~Project,
2018.07, 2019.01, "\\textbf{Research Assistant}, National Natural Science Foundation of China",
) %>%
arrange(-Start) %>%
mutate(End = replace_na(as.character(End), "")) %>%
mutate(Years = paste(Start, "--", End, sep = "")) %>%
select(Years, Project) %>%
baretable()
```
* Assisted in the Efficient Bayesian Flexible Density Methods with High Dimensional Financial Data Project.
* Completed the stochastic gradient descent application to the multivariate response surface.
* Completed the paper titled *Volatility Analysis for Housing Prices with Bayesian Response Surface Optimization*.
```{r researchietp, results='asis'}
awards <- tribble(
~Start, ~End, ~Project,
2013.04, 2014.04, "\\textbf{Main Participant}, National Undergraduate Innovation and Entrepreneurship Training Program",
) %>%
arrange(-Start) %>%
mutate(End = replace_na(as.character(End), "")) %>%
mutate(Years = paste(Start, "--", End, sep = "")) %>%
select(Years, Project) %>%
baretable()
```
* Initiated a municipal project, made overall arrangements for the project, from research proposal, project fund application, plan of the theoretical approaches and empirical analysis of the questionnaire data.
* Won the Excellent Prize upon the accomplishment of the research project.
* Completed the paper titled *Feasibility Analysis for Developing Commercial Insurance for Losing Only-child Problem*.
# Honours and awards
```{r awards, results='asis'}
awards <- tribble(
~Year, ~Award,
# 2023, "Purple Letter (Outstanding Unit Evaluation of Teaching) for Tutoring ETC5513 2023S1, Monash Business School",
2022, "Graduate Research Completion Award (GRCA), Monash University",
2021, "Runner-up for AMSI Winter School Participants Talk, \\href{https://ws.amsi.org.au/}{Australian Mathematical Sciences Institute}",
2021, "ACEMS Business Analytics Prize for 2021, \\href{https://acems.org.au}{ARC Centre of Excellence for Mathematical \\& Statistical Frontiers}",
2019, "Monash Graduate Scholarship, Monash University, yearly from 2019 to 2022",
2019, "Monash International Tuition Scholarship, Monash University, yearly from 2019 to 2022",
2018, "Outstanding Postgraduate Student, Central University of Finance and Economics (CUFE)",
2017, "First Prize Academic Scholarship for Graduate Student, CUFE",
2016, "Outstanding Undergraduate Student, CUFE",
2016, "Scholarship for All-Round Development, CUFE, yearly from 2013 to 2016",
2016, "Scholarship for Excellent Academic Innovation, CUFE",
2015, "Excellent Prize in National Undergraduate Statistical Contest in Modeling, Statistical Education Society of China",
2015, "Second Prize in National Undergraduate Mathematical Contest in Modeling",
2015, "National Endeavor Scholarship, Ministry of Education of Beijing",
2014, "Scholarship for Excellent Student Cadre, CUFE",
2013, "Excellent Student Cadre, School of Statistics and Mathematics, CUFE",
) %>%
baretable()
```
<!-- # Extracurricular activities -->
<!-- ```{r activity1, results='asis'} -->
<!-- awards <- tribble( -->
<!-- ~Start, ~End, ~Project, -->
<!-- 2012., 2014, "\\textbf{President}, Survey and Data Analysis Association of CUFE", -->
<!-- ) %>% -->
<!-- arrange(-Start) %>% -->
<!-- mutate(End = replace_na(as.character(End), "")) %>% -->
<!-- mutate(Years = paste(Start, "--", End, sep = "")) %>% -->
<!-- select(Years, Project) %>% -->
<!-- baretable() -->
<!-- ``` -->
<!-- * Planned a series of publicity activities for the association with more than 10 local universities warmly responding; repeatedly awarded Excellent Prize in student association activities and Advanced Individual Prize in CUFE. -->
<!-- * Organized a large quantity of surveys, such as campus bus timetable investigation, campus safety improvement, research on the tutor system in CUFE; obtained several prizes in the relevant contests at different levels. -->
<!-- * Twice awarded the Top Association Prize as Class A in CUFE. -->
<!-- ```{r activity2, results='asis'} -->
<!-- awards <- tribble( -->
<!-- ~Start, ~End, ~Project, -->
<!-- 2013, 2014, "\\textbf{Anchor and Host}, CUFE Radio Station", -->
<!-- ) %>% -->
<!-- arrange(-Start) %>% -->
<!-- mutate(End = replace_na(as.character(End), "")) %>% -->
<!-- mutate(Years = paste(Start, "--", End, sep = "")) %>% -->
<!-- select(Years, Project) %>% -->
<!-- baretable() -->
<!-- ``` -->
<!-- * Participated in the broadcast work for the music, travel and interview group, including the script writing, recording, editing and broadcasting. -->
<!-- * Host several shows and competitions in CUFE. -->
<!-- * Took charge of the preparation and organization of the 5th Anniversary Celebration Evening -->
<!-- for thE Campus Radio Station. -->