tester

load('rainfall.RData')
for (st in stations$Station) {
  link <- paste0('<img src="https://dl.dropboxusercontent.com/u/7013997/ccpng/mp%20',st,'.png">')
  cat(link,'\n')
}