-
Notifications
You must be signed in to change notification settings - Fork 71
/
RobHyndman_3page.qmd
193 lines (158 loc) · 8.72 KB
/
RobHyndman_3page.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
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
---
name: Rob J Hyndman
address: "Department of Econometrics & Business Statistics,\\tabularnewline Monash University, VIC 3800, Australia."
www: robjhyndman.com
email: "[email protected]"
github: robjhyndman
date: "`r format(Sys.Date(), '%B %Y')`"
date-format: "MMMM YYYY"
position: FAA, FASSA, BSc (Hons), PhD, AStat
format: cv-pdf
header-includes:
- \geometry{left=1.5cm,right=1.5cm,top=1.8cm,bottom=1.7cm}
- \definecolor{headcolor}{HTML}{000088}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(
echo = FALSE,
warning = FALSE,
message = FALSE,
cache = FALSE
)
library(dplyr)
library(RefManageR)
source("R/add_bib_section.R")
source("R/pretty.R")
# Remove any temporary bib file
if (fs::file_exists("temp.bib")) {
fs::file_delete("temp.bib")
}
targets::tar_load(c(pubs, rjh, grants, rjh_packages, rjhcites))
```
# Education and qualifications
```{r degrees, results='asis'}
tribble(
~Degree, ~Institution, ~Year,
"B.Sc.(Hons)", "University of Melbourne", 1988,
"Ph.D.", "University of Melbourne", 1992,
"A.Stat.", "Statistical Society of Australia", 2000
) %>%
baretable()
```
# Current position
```{r employment, results='asis'}
tribble(
~Start, ~Position,
"2003--", "\\textbf{Professor}, Department of Econometrics \\& Business Statistics, Monash University",
) %>%
baretable()
```
# Fellowships
* Fellow of the Australian Academy of Science (elected 2021).
* Fellow of the Academy of the Social Sciences in Australia (elected 2020).
* Fellow of the International Institute of Forecasters (elected 2021).
# Selected awards and honours
```{r awards, results='asis'}
awards <- tribble(
~Year, ~Award,
2022, "Australian Awards for University Teaching citation for outstanding contributions to student learning",
2021, "Pitman Medal, Statistical Society of Australia",
2021, "Elected Fellow of the Australian Academy of Science",
2021, "Elected Fellow of the International Institute of Forecasters",
2020, "Elected Fellow of the Academy of the Social Sciences in Australia",
2020, "Dean's Award for Innovation in Learning and Teaching, Monash Business School",
2010, "Dean's Award for Excellence in Innovation and External Collaboration, Monash Business School",
2010, "HP Innovation Research Award",
2008, "Dean's award for Excellence in Research, Monash Business School",
2008, "Vice-Chancellor's award for postgraduate supervisor of the year, Monash University",
2007, "Moran Medal for Statistical Science, Australian Academy of Science",
2005, "Elected member of the International Statistical Institute",
) %>%
baretable()
```
# Teaching and mentoring
* In each year since 2018, student evaluations for "Applied forecasting for business and economics" gave an average rating for my teaching above 4.8 out of 5.
* I currently supervise six PhD students and one post-doctoral research fellow. I have previously supervised another 29 PhD students and 3 Masters students.
* I am author of an innovative textbook with George Athanasopoulos entitled *Forecasting: principles and practice* ([`OTexts.org/fpp3/`](https://OTexts.org/fpp3)) which is available online and free of charge. The website has an average of over 25000 pageviews per day.
* I publish the [*Hyndsight*](https://robjhyndman.com/hyndsight) blog on research issues which receives an average of about 1500 pageviews per day.
# Editorial boards
```{r positions, results='asis'}
tribble(
~Start, ~End, ~Position,
2023, NA, "\\textbf{Executive Editor}, \\textit{The R Journal}",
2011, NA, "\\textbf{Editor}, \\textit{Journal of Statistical Software}",
2001, 2004, "\\textbf{Associate Editor}, \\textit{International Journal of Forecasting}",
2019, NA, "\\textbf{Associate Editor}, \\textit{International Journal of Forecasting}",
2005, 2018, "\\textbf{Editor-in-Chief}, \\textit{International Journal of Forecasting}",
2001, 2004, "\\textbf{Theory and Methods Editor}, \\emph{Australian \\& New Zealand Journal of Statistics}",
1996, 2001, "\\textbf{Book Review Editor}, \\emph{Australian Journal of Statistics}",
) %>%
mutate(End = as.character(End)) |>
mutate(End = tidyr::replace_na(End, "")) %>%
mutate(Year = paste(Start, "--", End, sep = "")) %>%
select(Year, Position) %>%
baretable()
```
# Society leadership
* Director, International Institute of Forecasters, 2005--2018.
* Member, Scientific Program Advisory Group, Statistical Society of Australia, 2001--2004
* Secretary, Victorian branch, Statistical Society of Australia, 1993--1995.
* Central Council member, Statistical Society of Australia, 1993--1996.
# Research Grants
```{r grants}
sumgrants <- grants %>%
pull(Amount) %>%
sum(na.rm = TRUE)
```
I have acquired (in most cases jointly) about $`r sprintf("%2.1f", sumgrants/1e6)` million in external research grants since 2000. Highlights include being CI on an ARC Centre of Excellence, CI on an ARC Industrial Transformation Training Centre, CI on 3 ARC Discovery Grants, CI on 3 ARC Linkage Grants, and CI on 1 NHMRC grant.
# Selected public and keynote addresses
* Belz lecture, *Forecasting and the importance of being uncertain*, Statistical Society of Australia, Melbourne, Oct 2006.
* Knibbs lecture, *Population forecasting and the importance of being uncertain*, Statistical Society of Australia, Canberra, Nov 2007.
* Invited speaker, *Forecasting functional time series*, Australian Frontiers of Science, Canberra, Feb 2008.
* Keynote speaker, *Extreme Forecasting*, International Symposium on Forecasting, Hong Kong, Jun 2009.
* Keynote speaker, *Man vs Wild Data*, Young Statisticians Conference, Melbourne, Feb 2013.
* Keynote speaker, *Forecasting without forecasters*, International Symposium on Forecasting, Seoul, Jun 2013.
* Keynote speaker, *Automatic time series forecasting*, "New Trends on Intelligent Systems and Soft Computing 2014", Granada, Spain, Feb 2014.
* Keynote speaker, *Challenges in forecasting peak electricity demand*, Energy Forum, Valais, Switzerland, Jun 2014.
* Yahoo Big Thinkers lecture, *Exploring the boundaries of predictability: what can we forecast, and when should we give up?*, California, Jun 2015.
* Keynote speaker, *Forecasting big time series data using R*, Chinese R conference, Nanchang, Oct 2015.
* Keynote speaker, *Forecasting large collections of related time series*, German Statistical Week, Augsburg, Sep 2016.
* Keynote speaker, *Visualizing and forecasting big time series data*, ICML Time Series Workshop, Sydney, Aug 2017.
* Keynote speaker, Beijing Workshop on Forecasting, Nov 2017.
* Keynote speaker, *10 years of forecast reconciliation*, International Symposium on Forecasting, Oct 2020.
* ACEMS public address, *Uncertain futures: what can we forecast and when should we give up?*, Aug 2021.
# Advisory boards
* Member of the Scaling committee, Victorian Tertiary Admissions Centre (1994--). This committee is responsible for producing the ATAR for VCE students.
* Member of the ATAR Technical Group for the Australasian Conference of Tertiary Admissions Centres (2003--).
* Member of the Indigenous Statistical and Information Advisory Group for the Australian Institute of Health and Welfare (2017--).
* Member of the Methodology Advisory Committee for the Australian Bureau of Statistics (2010--2018).
# Conference organization
* General Chair, International Symposium on Forecasting, 2017
* Program Chair, International Symposium on Forecasting, 2012.
* Program Co-Chair, International Symposium on Forecasting, 2004.
# R packages
I have coauthored `r NROW(rjh_packages)` R packages as a result of my research. There have been over `r round(sum(rjh_packages$downloads, na.rm=TRUE)/1e6)` million downloads of my packages since 2015 (to `r format(Sys.time(), "%e %B %Y")`).
# Selected books
```{r books}
#| output: asis
pubs[c("fpp3", "MWH3", "expsmooth08")] |>
add_bib_section(show_cites = TRUE, rjhcites = rjhcites)
```
# Research
* Since 1991 I have authored `r NROW(pubs)` papers, chapters or books on statistical topics. A selection of these are listed below.
* On Google Scholar my h-index is `r rjh$All[2]` with total citations of `r prettyNum(rjh$All[1], big.mark=",")` (as at `r format(Sys.time(), "%e %B %Y")`).
\enlargethispage*{0.4cm}
# Selected research papers^[Citations from Google Scholar on `r format(Sys.time(), "%e %B %Y")`.]
```{r best}
#| output: asis
pubs[c(
"uslongevity", "smartmeterhts", "mint", "HF10", "DHS11",
"hierarchical", "lhf", "dobin", "forecastingcompetitions", "forecastingsofa",
"VHNC10", "HK06", "HK08", "HKSG02", "HF96", "stray", "oddstream",
"ijf25", "HU07", "HDR96", "gefcom2014",
"HBG96", "HB08", "tscv", "temporal-hierarchies",
"ctprob","hfreview","coherentprob","combinations","WSH06",
"tsgeneration","LCcomparison","HBY13"
)] |>
add_bib_section(show_cites = TRUE, rjhcites = rjhcites)
```