RobHyndmanCV.Rmd

---
name: Rob J Hyndman
address: "Department of Econometrics & Business Statistics,\\tabularnewline Monash University, VIC 3800, Australia."
www: robjhyndman.com
phone: +61 3 9905 5141
email: "Rob.Hyndman@monash.edu"
twitter: robjhyndman
github: robjhyndman
date: "`r format(Sys.time(), '%B %Y')`"
headcolor: "000088"
output:
  vitae::hyndman:
    keep_tex: yes
header_includes:
  - \ExecuteBibliographyOptions{useprefix=true}
  - renewcommand{\bibfont}{\normalfont\fontsize{10}{12.4}\sffamily}
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE, cache = FALSE)
library(tidyverse)
library(RefManageR)
library(vitae)
source("baretable.R")
```

```{r Rpackages, eval=FALSE}
# Construct bib file for R packages
source("Rpackages.R")
write_packages_bib(
  pkglist = c(
    "addb",
    "anomalous",
    "bfast",
    "binb",
    "compenginets",
    "cricketdata",
    "demography",
    "eechidna",
    "emma",
    "expsmooth",
    "fable",
    "fabletools",
    "feasts",
    "fds",
    "fma",
    "forecast",
    "fpp",
    "fpp2",
    "fpp3",
    "ftsa",
    "gratis",
    "gravitas",
    "hdrcde",
    "hts",
    "Mcomp",
    "MEFM",
    "MonashEBSTemplates",
    "oddstream",
    "oddwater",
    "ozbabynames",
    #"ozdata",
    "rainbow",
    "rmarkdown",
    "robets",
    "seer",
    "smoothAPC",
    "stR",
    "stray",
    "sugrrants",
    "thief",
    "tscompdata",
    "tsdl",
    "tsfeatures",
    "tsibble",
    "tsibbledata",
    "vitae"),
  file="Rpackages.bib")
```

```{r bibfiles}
# Read any bib files
pubs <- ReadBib("rjhpubs.bib", check = FALSE)
reports <- ReadBib("rjhreports.bib", check = FALSE)
packages <- ReadBib("Rpackages.bib", check = FALSE)
```

# Education and qualifications

```{r degrees, results='asis'}
tribble(
  ~Year, ~Degree, ~Institution,
  1988, "B.Sc.(Hons)", "University of Melbourne",
  1992, "Ph.D.", "University of Melbourne",
  2000, "A.Stat.", "Statistical Society of Australia"
) %>%
  baretable()
```

# Employment history

```{r employment, results='asis'}
tribble(
  ~Start, ~End, ~Position,
  1985, 1992, "\\textbf{Statistical consultant}, Department of Statistics, University of Melbourne",
  1993, 1994, "\\textbf{Lecturer}, Department of Statistics, University of Melbourne",
  1995, 1996, "\\textbf{Lecturer}, Department of Mathematics and Statistics, Monash University",
  1997, 1998, "\\textbf{Senior Lecturer}, Department of Mathematics and Statistics, Monash University",
  1998, 2000, "\\textbf{Senior Lecturer}, Department of Econometrics \\& Business Statistics, Monash University",
  2001, 2003, "\\textbf{Associate Professor}, Department of Econometrics \\& Business Statistics, Monash University",
  2003, NA, "\\textbf{Professor}, Department of Econometrics \\& Business Statistics, Monash University",
  2019, NA, "\\textbf{Head}, Department of Econometrics \\& Business Statistics, Monash University",
) %>%
  arrange(-Start) %>%
  #filter(Start > 2000) %>%
  mutate(End = replace_na(End, "")) %>%
  mutate(Years = paste(Start, "--", End, sep = "")) %>%
  select(Years, Position) %>%
  baretable()
```

# Other positions

```{r positions, results='asis'}
tribble(
  ~Start, ~End, ~Position,
  2011, NA, "\\textbf{Editor}, \\textit{Journal of Statistical Software}",
  2001, NA, "\\textbf{Associate Editor}, \\textit{International Journal of Forecasting}",
  2005, 2018, "\\textbf{Editor-in-Chief}, \\textit{International Journal of Forecasting}",
  2005, 2018, "\\textbf{Director}, International Institute of Forecasters",
  2001, 2004, "\\textbf{Theory and Methods Editor}, \\emph{Australian \\& New Zealand Journal of Statistics}",
) %>%
  mutate(End = replace_na(End, "")) %>%
  mutate(Year = paste(Start, "--", End, sep = "")) %>%
  select(Year, Position) %>%
  baretable()
```

# Honours and awards

```{r awards, results='asis'}
awards <- tribble(
  ~Year, ~Award,
  2016, "KNAW Visiting Professor, TU/Eindhoven, Netherlands",
  2010, "Dean's Award for excellence in innovation and external collaboration, Monash University",
  2010, "HP Innovation Research Award",
  2008, "Dean's award for excellence in research, Monash University",
  2008, "Vice-Chancellor's award for postgraduate supervisor of the year, Monash University",
  2007, "Knibbs Lecturer, Statistical Society of Australia (ACT branch)",
  2007, "Moran Medal for Statistical Science, Australian Academy of Science",
  2006, "Belz Lecturer, Statistical Society of Australia (Victorian branch)",
  1998, "Award for excellence in teaching, Monash Science Society",
  1990, "Finalist, Channel Ten Young Achiever Awards",
  1988, "Dwights Prize in Statistics, University of Melbourne",
  1987, "Norma McArthur Prize in Statistics, University of Melbourne",
  1986, "Second Maurice H.\ Belz Prize in Statistics, University of Melbourne"
) %>%
  filter(!grepl("HP Innovation", Award)) %>%
  baretable()
```

# Current memberships

  * Elected Member, International Statistical Institute
  * Member, International Institute of Forecasters
  * Member, International Association for Statistical Computing
  * Member, Statistical Society of Australia
  * Member, International Society for Business and Industrial Statistics

# Research

  * Since 1991 I have authored `r length(pubs)` papers, chapters or books on statistical topics (listed on pages \pageref{papersstart}--\pageref{papersend}).
  * My current research involves the analysis of large collections of time series, and includes visualization, forecasting, reconciliation, modelling and anomaly detection..
  * I currently supervise four PhD students and two post-doctoral research fellows. I have previously supervised another 25 PhD students and 3 Masters students.
  * I publish the [*Hyndsight*](https://robjhyndman.com/hyndsight) blog on research issues which receives an average of about 2000 pageviews per day.
  * I have produced `r length(packages)` R packages as a result of my research (listed on pages \pageref{packagestart}--\pageref{packageend}).

# Grants

```{r grants}
grants <- read_csv("Grant_income.csv")
sumgrants <- grants %>%
  pull(Amount) %>%
  c(100000) %>%
  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. External research grants over $40,000 are listed below.\vspace*{0.2cm}

```{r grantstable, results='asis'}
grants %>%
  filter(Amount > 39999, Type=="Research") %>%
  mutate(
    Time = paste0(Start, ifelse(is.na(End),"",paste0("--",End))),
    Entry = paste(People, ". ``", Title, "''. ",
                  "\\emph{Funding from ", Source,"}",
                  sep=""),
    Amount = paste("\\$",prettyNum(Amount, big.mark=","), sep="")
  ) %>%
  arrange(Time, desc(Amount)) %>%
  select(Time, Entry, Amount) %>%
  baretable(align='llp{13.3cm}r',
            hline.after=c(0,NROW(.)),
            size="\\fontsize{10}{16}",
            add.to.row=list(
              pos=as.list(seq(NROW(.))),
              command=rep("\\\\[-0.2cm]",NROW(.))))
```

\newpage

# Major invited talks

  * Belz lecture, *Forecasting and the importance of being uncertain*, Statistical Society of Australia, Melbourne, October 2006.
  * Knibbs lecture, *Population forecasting and the importance of being uncertain*, Statistical Society of Australia, Melbourne, November 2007.
  * Invited speaker, *Forecasting functional time series*, Australian Frontiers of Science, Canberra, February 2008.
  * Keynote speaker, *Extreme Forecasting*, International Symposium on Forecasting, Hong Kong, June 2009.
  * Workshop leader, *Statistical Forecasting: Principles and Practice*, Swiss Statistical Society, Kandersteg, June 2011.
  * Invited speaker, *Advances in automatic time series forecasting*, Australian Statistics Conference, Adelaide, July 2012.
  * Keynote speaker, *Man vs Wild Data*, Young Statisticians Conference, Melbourne, February 2013.
  * Keynote speaker, *Forecasting without forecasters*, International Symposium on Forecasting, Seoul, June 2013.
  * Keynote speaker, *Automatic time series forecasting*, "New Trends on Intelligent Systems and Soft Computing 2014", University of Granada, Spain, February 2014.
  * Workshop leader, *State space models for time series*, Australian Bureau of Statistics, May 2014.
  * Keynote speaker, *Challenges in forecasting peak electricity demand*, Energy Forum, Valais, Switzerland, June 2014.
  * Workshop leader, *Functional time series in demography*, Humboldt University, Berlin, June 2014.
  * Workshop leader, *Forecasting: principles and practice*, University of Western Australia, September 2014.
  * Invited speaker, *Visualization and forecasting of big time series data*, ACEMS Big data workshop, QUT, February 2015.
  * Keynote speaker, *Exploring the boundaries of predictability: what can we forecast, and when should we give up?*, Yahoo Big Thinkers, June 2015.
  * Keynote speaker, *Forecasting big time series data using R*, Chinese R conference, Nanchang, October 2015.
  * Keynote speaker, *Forecasting large collections of related time series*, German Statistical Week, Augsburg, September 2016.
  * Invited speaker, International Symposium on Energy Analytics, Cairns, June 2017.
  * Keynote speaker, ICML Time Series Workshop, Sydney, August 2017.
  * Keynote speaker, Beijing Workshop on Forecasting, November 2017.
  * Workshop leader, *Forecasting: principles and practice*, New York City, June 2018.
  * Monash master class, *Forecasting the future of the power industry: What can you learn from smart meter data?*, Melbourne, September 2018.
  * ISI short course, *High-dimensional time series analysis*, Kuala Lumpur, August 2019.
  * Workshop leader, *Tidy time series and forecasting in R*, rstudio::conf, San Francisco, January 2020.
  * Keynote speaker, International Symposium on Forecasting, Rio de Janeiro, July 2020.

# Teaching

  * In 2018, student evaluations for "Applied forecasting for business and economics" gave an average rating for my teaching of 4.82 out of 5, while all students rated "Advanced statistical modelling" at 5 out of 5.
  * In 1998, I received the award for "Excellence in teaching" by the Monash Science Society. This is awarded by the students of the Science faculty.
  * I am author of an innovative textbook with George Athanasopoulos entitled *Forecasting: principles and practice* ([`OTexts.org/fpp2/`](https://OTexts.org/fpp2)) which is available online and free of charge. The website has an average of over 20000 pageviews per day.

# Consulting

  * Since 1986, I have worked with several hundred different clients in Australia, the United States, Saudi Arabia, Israel, India, Russia, Switzerland, and the Netherlands. I have produced `r length(reports)` written consulting reports (listed on pages \pageref{consultingstart}--\pageref{consultingend}).
  * Six times I have provided expert witness in litigation cases.

# 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).

\newpage

# Publications

```{r publist}
# Find editorials
editorials <- c(
  "hyndman2015new",
  "hyndman2015change",
  "IJFeditorial13",
  "tourismeditorial11",
  "IJFeditorial10b",
  "IJFeditorial10a",
  "IJFeditorial06",
  "IJFeditorial05"
)
```

## PhD thesis
```{r thesis}
bibliography_entries("rjhpubs.bib", startlabel = "papersstart") %>%
  filter(bibtype == "PhdThesis")
```

## Books
```{r books}
bibliography_entries("rjhpubs.bib") %>%
  filter(bibtype == "Book") %>%
  arrange(year, surnames)
```

## Refereed research papers
```{r research-papers}
# Normal articles excluding editorials
bibliography_entries("rjhpubs.bib") %>%
  filter(bibtype == "Article", !(key %in% editorials)) %>%
  arrange(year, surnames)
```

\newpage

## Book chapters
```{r book-chapters}
bibliography_entries("rjhpubs.bib") %>%
  filter(bibtype %in% c("InBook", "InCollection")) %>%
  arrange(year, surnames)
```

## Papers in refereed conference proceedings
```{r papers-in-proceedings}
bibliography_entries("rjhpubs.bib") %>%
  filter(bibtype == "InProceedings") %>%
  arrange(year, surnames)
```

## Working papers under revision or review
```{r working-papers}
bibliography_entries("rjhpubs.bib") %>%
  filter(bibtype %in% c("TechReport", "Unpublished")) %>%
  arrange(year, surnames)
```

## Book reviews
```{r book-reviews}
bibliography_entries("rjhpubs.bib") %>%
  filter(bibtype == "Review") %>%
  arrange(year, surnames)
```

## Editorials
```{r editorials}
# Now the editorials
bibliography_entries("rjhpubs.bib", endlabel = "papersend") %>%
  filter(bibtype == "Article", key %in% editorials) %>%
  arrange(year, surnames)
```

## Statistical consulting reports
```{r statistical-consulting}
bibliography_entries("rjhreports.bib",
  startlabel = "consultingstart", endlabel = "consultingend"
) %>%
  arrange(year, surnames)
```

## Software (R packages)
```{r r-packages}
# Sort R packages by title, then year.
bibliography_entries("Rpackages.bib",
  startlabel = "packagestart", endlabel = "packageend"
) %>%
  arrange(title, year)
```