# 
# twoworlds-data, with 1500 m skating (check Nuis 1:40.17)
# and 800 m running (check Rodisha 1:40.91);
# best results by year
# skatingrunning <- matrix(scan("twoworlds_data",skip=8),byrow=T,ncol=6)
# year <- skatingrunning[ ,1]
# skating <- 60*skatingrunning[ ,2] + skatingrunning[ ,3]
# running <- 60*skatingrunning[ ,5] + skatingrunning[ ,6]

  2025    1 41.22 2001    1 42.47
  2024    1 40.87 2002    1 42.32
  2023    1 42.26 2003    1 42.52
  2022    1 42.59 2004    1 43.08
  2021    1 41.15 2005    1 43.70
  2020    1 41.66 2006    1 43.09
  2019    1 40.17 2007    1 43.74
  2018    1 43.44 2008    1 42.69
  2017    1 41.02 2009    1 42.01
  2016    1 44.13 2010    1 41.01
  2015    1 41.88 2011    1 41.33
  2014    1 43.70 2012    1 40.91
  2013    1 41.98 2013    1 42.37
  2012    1 44.73 2014    1 42.45
  2011    1 42.94 2015    1 42.51
  2010    1 42.95 2016    1 42.15
  2009    1 41.04 2017    1 43.10
  2008    1 42.01 2018    1 42.05
  2007    1 42.32 2019    1 41.89
  2006    1 42.68 2020    1 43.15
  2005    1 42.78 2021    1 42.91
  2004    1 44.98 2022    1 43.26
  2003    1 44.98 2023    1 42.80
  2002    1 43.95 2024    1 41.11
  2001    1 45.20 2025    1 41.86