clauswilke

---
title: "World maps"
output:
  html_document:
    df_print: paged
---

```{r echo = FALSE, message = FALSE}
library(tidyverse)
library(sf)

clauswilke

# Deterministically generated normal variates, implemented here in R but more
# useful for GLSL programming.

library(ggplot2)

fract <- function(x) x - floor(x)

rand <- function(x) fract(3482954.234 * sin(24934.342 * x + 12394.32))

norm <- function(x) {

clauswilke

Generic 1,2,3 Noise

float rand(float n){return fract(sin(n) * 43758.5453123);}

float noise(float p){
	float fl = floor(p);
  float fc = fract(p);
	return mix(rand(fl), rand(fl + 1.0), fc);
}

clauswilke

library(ggplot2) # requires 2.3.0
library(purrr)

make_plot <- function(frame) {
  ggplot(mtcars, aes(mpg, hp, color = factor(cyl))) +
    geom_point() +
    scale_color_brewer(
      palette = 2, type = "qual", name = "cyl",
      guide = guide_legend(
        direction = "horizontal",

clauswilke

library(dplyr)
library(tidyr)
library(purrr)
library(ggplot2)
library(colorspace)

# data to analyze
data <- select(MASS::fgl, -type, -RI, -Si)

# cluster

clauswilke

---
title: "COVID-19 Case Fatality Rate (CFR) by age"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(tidyverse)
```

clauswilke

library(sf)
library(dplyr)
library(ggplot2)
library(gganimate) # needs development version from github

# helper function to place a geometric object at a desired position
# and scale
place_geometry <- function(geometry, position, scale = 1) {
  (geometry - st_centroid(geometry)) * scale + 
    st_sfc(st_point(position))

clauswilke

# Code for presentation at rstudio::conf2019 
# Slides:
# https://docs.google.com/presentation/d/1zMuBSADaxdFnosOPWJNA10DaxGEheW6gDxqEPYAuado/edit?usp=sharing

# Setup -------------------------------------------------------------------

library(ggplot2)
library(gganimate)
library(ungeviz)
library(mgcv)

clauswilke

// This file implements the 2D isoline and isoband algorithms described
// here: https://en.wikipedia.org/wiki/Marching_squares 
// Written by Claus O. Wilke

#include <Rcpp.h>
using namespace Rcpp;

#include <iostream>
#include <vector>
#include <utility> // for pair

clauswilke

library(tidyverse)
library(sf)

# Development version of colorspace is needed. Install via:
# install.packages("colorspace", repos = "http://R-Forge.R-project.org")
library(colorspace)

crs_goode <- "+proj=igh"

world_goode <- st_as_sf(rworldmap::getMap(resolution = "low")) %>%