khufkens

# map El Nino drought in the Amazon and Africa
library(raster)
library(tidyverse)
library(maps)
library(RColorBrewer)

# set colour theme
colours = brewer.pal(11,"RdBu")

# download CHIRP data

khufkens

#!/bin/bash

# Insert PDF meta-data into exif header
# for pdf files with format author - year - title.pdf.
# This allows e-readers to query meta-data for proper
# display and sorting of authors and titles
# (note: relies on exiftool)

for filename in *.pdf; do  
  noext=`echo "${filename%.*}"`

khufkens

# Before you start install all the referenced packages below
# including the development release of ecmwfr you will also
# need the rnaturalearthdata in addition to the normal package
# To run the code copy and paste segments as this is still
# rough around the edges and requires user interaction to
# set your CDS API key.

# load libraries
if(!require(devtools)){install.packages("devtools")}
devtools::install_github("khufkens/ecmwfr")

khufkens

# Before you start install all the referenced packages below
# including the development release of ecmwfr you will also
# need the rnaturalearthdata in addition to the normal package
# To run the code copy and paste segments as this is still
# rough around the edges and requires user interaction to
# set your CDS API key.

# load libraries
if(!require(devtools)){install.packages("devtools")}
devtools::install_github("khufkens/ecmwfr")

khufkens

# Before you start install all the referenced packages below
# including the development release of ecmwfr you will also
# need the rnaturalearthdata in addition to the normal package
# To run the code copy and paste segments as this is still
# rough around the edges and requires user interaction to
# set your CDS API key.

# load libraries
if(!require(devtools)){install.packages("devtools")}
devtools::install_github("khufkens/ecmwfr")

khufkens

# Ghent air pollution analysis
# parametric t-tests
# non-parametric Mann-Whitney U test

# download and collate the data
pdf_data <- paste0(pdftools::pdf_text("https://klimaat.stad.gent/sites/default/files/nota_circulatieplangent_3.pdf")[2],
               collapse = " ")

# some regular expression moving about
subset <- gsub(',', ".", pdf_data)

khufkens

montage *.png -bordercolor White -border 5x5 -colorspace Gray -gravity center -tile 7x -geometry +10+0 ~/montage.jpg

khufkens

# aligns virtual orientation with physical orientation
mogrify -auto-orient *.png

khufkens

# download NDVI time series
library(MODISTools)

df <- data.frame(
  site_name = 
    c("US-Bes",
      "US-Atq",
      "US-Ivo",
      "US-ICt",
      "DK-ZaH",

khufkens

#!/bin/bash

# crop section of images
mogrify -crop 2770x2304+3560+296 *.jpg

# compile into animated gif
convert -delay 100 -loop 0 -depth 8 -resize '640x' -quality 75% *.jpg anim.gif