Koen Hufkens khufkens

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

## ghent_air_quality_vmm.R
# 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)

## cold_front_geopotential_transect.R
# 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")

## essential_climate_variables_animation.R
# 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")

## essential_climate_variable_plot.R
# 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")

## modify_pdf_exif_data.sh
#!/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%.*}"`

## el_nino_precip_analysis.r
# 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

## daymet_server_tests.r
# load required libraries
if(!require(devtools)){install.package("devtools")}
if(!require(daymetr)){devtools::install_github("khufkens/daymetr")}
library("daymetr")

# no delay calls
no_delay = unlist(lapply(1:100, function(...){

  # download data
  error = try(download_daymet(silent = TRUE))

## MCD12Q1_median_class.js
// years to process (from start year t0 to end year t1)
var t0 = "2001";
var t1 = "2014";

var LC = ee.ImageCollection('MCD12Q1')
.select('Land_Cover_Type_1')
.filterDate(t0.concat("-01-01"),t1.concat("-12-31"))
.median();

// Create a geometry representing an export region.

## tropicos_species_distribution.r
#' @param species: genus species or genus
#' @param quiet: TRUE / FALSE provides verbose output
#' @keywords Tropicos, species distribution
#' @examples
#'
#' # with defaults, outputting a data frame with species distribution
#' # for Clematis
#' df <- tropicos.species.distribution()
#' # returns NA if no data are present
#' [requires the rvest package for post-processing]