RobHyndman_2page.qmd

---
name: Rob J Hyndman
address: "Department of Econometrics & Business Statistics,\\tabularnewline Monash University, VIC 3800, Australia."
www: robjhyndman.com
email: "Rob.Hyndman@monash.edu"
github: robjhyndman
date: "`r format(Sys.Date(), '%B %Y')`"
date-format: "MMMM YYYY"
position: FAA, FASSA, BSc (Hons), PhD, AStat
format: cv-pdf
pdf-engine: latexmk
header-includes:
  - \geometry{left=1.5cm,right=1.5cm,top=1.8cm,bottom=1.7cm}
  - \definecolor{headcolor}{HTML}{000088}
---

\titlespacing{\section}{0pt}{1.ex}{0.5ex}
\fontsize{10}{11.5}\sf

```{r}
#| label: 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, rjh_packages, grants, rjhcites))
```

# Education and qualifications

```{r}
#| label: degrees
#| output: 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()
```

# Current position

```{r}
#| label: employment
#| output: asis
tribble(
  ~Years   , ~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}
#| label: awards
#| output: asis
awards <- tribble(
  ~Year , ~Award                                                                                                 ,
   2025 , "Highly-cited researcher award, Clarivate Analytics"                                                   ,
   2022 , "Australian Awards for University Teaching citation for outstanding contributions to student learning" ,
   2021 , "Pitman Medal, Statistical Society of Australia"                                                       ,
   2021 , "Vice-Chancellor's Award for Innovation in Learning and Teaching"                                      ,
   2010 , "Dean's Award for Excellence in Innovation and External Collaboration, Monash Business School"         ,
   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"
) %>%
  baretable()
```

# Editorial boards

```{r}
#| label: positions
#| output: asis
tribble(
  ~Start , ~End           , ~Position                                                                                       ,
    2023 , "2026"         , "\\textbf{Executive Editor}, \\textit{The R Journal}"                                           ,
    2011 , "2024"         , "\\textbf{Editor}, \\textit{Journal of Statistical Software}"                                   ,
    2005 , "2018"         , "\\textbf{Editor-in-Chief}, \\textit{International Journal of Forecasting}"                     ,
    2001 , "2004, 2019--" , "\\textbf{Associate Editor}, \\textit{International Journal of Forecasting}"                    ,
    2001 , "2004"         , "\\textbf{Theory and Methods Editor}, \\emph{Australian \\& New Zealand Journal of Statistics}" ,
) %>%
  mutate(
    Start = as.character(Start),
    End = tidyr::replace_na(End, ""),
    Year = paste(Start, "--", End, sep = "")
  ) %>%
  select(Year, Position) %>%
  baretable()
```

# Research grants

```{r}
#| label: grants
sumgrants <- grants %>%
  pull(Amount) %>%
  sum(na.rm = TRUE)
```

I have acquired (in most cases jointly) about $`r round(sumgrants/1e6)` million in external research grants since 2000, including an ARC Centre of Excellence, an NHMRC Centre of Excellence, an ARC Industrial Training Transformation Centre, 4 ARC Discovery Grants, 3 ARC Linkage Grants, 1 NHMRC Grant, and contract research grants from many government and business organizations.

# Selected public and keynote lectures

  * Belz lecture, *Forecasting and the importance of being uncertain*, Statistical Society Australia, Melbourne, Oct 2006.
  * Knibbs lecture, *Population forecasting and the importance of being uncertain*, Statistical Society Australia, Canberra, Nov 2007.
  * 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.
  * 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, *10 years of forecast reconciliation*, International Symposium on Forecasting, Oct 2020.
  * Cornish lecture, *Feasts and fables: modern tools for time series analysis*, Adelaide, November 2021.
  * Blakers lecture, *Forecasting the future and the future of forecasting*, ANU-AAMT National Mathematics Summer School, Jan 2022.
  * Keynote speaker, *Visualization of complex seasonal patterns in time series*, 800 year anniversary, University of Padua, Sep 2022.
  * ANU public lecture, *Forecasting the future and the future of forecasting*, Canberra, Nov 2022.
  * IIF Distinguished Lecturer, *Forecast reconciliation*, online series of lectures, Nov 2023.
  * Suessmilch lecture, *vital: Tidy data analysis for demography using R*, Rostock, Germany, Jun 2024.
  * Keynote speaker, *Improving forecasts via subspace projections*, International Statistics Conference, Colombo, Dec 2024.
  * Keynote speaker, *Improving forecasts via subspace projections*, International Forum on Statistics, Beijing, Jul 2025.

# 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}
#| label: books
#| output: asis
pubs[c("fpp3", "MWH3", "expsmooth08")] |>
  add_bib_section(show_cites = TRUE, rjhcites = rjhcites)
```

\enlargethispage*{0.75cm}


```{r}
#| label: count_papers
npapers <- pubs %>%
  as_tibble() |>
  filter(!(type %in% c("book", "thesis", "review"))) %>%
  NROW()
```

# Selected papers

Since 1991 I have authored `r npapers` research papers or book chapters on statistical topics. Some highlights are listed below, with citations taken from Google Scholar on `r format(Sys.time(), "%e %B %Y")`.  My h-index is `r rjh$All[2]` with total citations of `r prettyNum(rjh$All[1], big.mark=",")`.


```{r}
#| label: bibfile
#| output: asis
pubs[c(
  "tsibble",
  "globalforecasting",
  "forecastsofa",
  "baggedETS",
  "smartmeterhts",
  "mint",
  "HF10",
  "DHS11",
  "hierarchical",
  "VHNC10",
  "HK06",
  "HK08",
  "HKSG02",
  "HF96",
  "m3pca",
  "ijf25",
  "HU07",
  "HDR96",
  "HBG96",
  "HB08",
  "tscv",
  "combinations",
  "hfreview",
  "lookout"
)] |>
  add_bib_section(show_cites = TRUE, rjhcites = rjhcites)
```