# generate pairs of x-y values nx = 100 ny = 80 x = sample(x = 1:nx, size = 90, replace = TRUE) y = seq(-1, -ny, length = 90) letters2 = c("I","m","p","i","a","l","C","o","l","l","e","g","e") # set graphical parameters op = par(bg = "black", mar = c(0, 0.2, 0, 0.2)) # plot plot(1:nx, seq(-1, -nx), type = "n", xlim = c(1, nx), ylim = c(-ny+10, 1)) for (i in seq_along(x)) { aux = sample(1:ny, 1) points(rep(x[i], aux), y[1:aux], pch = sample(letters2, aux, replace = TRUE), col = hsv(0.35, 1, 1, runif(aux, 0.3)), cex = runif(aux, 0.3)) } # signature legend("bottomright", legend = "IC Global Health", bty = "n", text.col = "gray70")

Practical Session 1

These are the files for the practical. Click on the links to download the files.

Practical Session 2

Practical Session 2

Wednesday morning