Mock IMO Award Cutoffs

Mock IMO Award Cutoffs


Some R Codes
Plot of #golds at IMO v.s. gold cuts at Mock IMO (2009 - 2016)

gcuts <- c(29,32,34,32,28,28,30,31) golds <- c(1,1,3,3,1,0,2,2)

regression <- lm(gcuts ~ golds) x <- seq(27,35, 0.01) y <- 27.921 + 1.587*x regline <- function(g){ return((g-27.921)/1.587) } regression plot(gcuts,golds, pch = 16, xlim = c(27,35), ylim = c(0,6), main = "Plot of #golds at IMO v.s. gold cuts at Mock IMO (2009 - 2016)") curve(regline, type = "l", col = "red", add = T, lwd = 2)