Michael Bedward mbedward

## improve-plot.r
#===============================================================================
# 2020-06-19 -- twitter
# improve plot
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#===============================================================================

# the challenge
# https://community.storytellingwithdata.com/exercises/one-little-changeand-a-redesign

library(tidyverse)

## gist:850fe1923d9b87e3d3c5f9a66fb7e7ca
# Some test data for proportions with mean 0.4
p <- rbeta(20, 4, 6)

# JAGS model
modelTxt <- "model {
for(i in 1:length(p)) {
  p[i] ~ dbeta(alpha, beta)
}
alpha <- mu * phi
beta  <- (1-mu) * phi

## example.R
library(ggplot2)
library(mgcv)

# Toy data set
dat <- data.frame(
  x = seq(0, 2*pi, length.out = 100),
  y = sin(3*x) / sin(x/2)
)

# Randomly thin the data

## convex_hulls.png

      
              3 files
            
          
              1 fork
            
          
              0 comments
            
          
              1 star
            
          
                mbedward
                / convex_hulls.png
            
            
              Last active
              June 10, 2019 19:55
            
              
                Example of drawing convex hulls around grouped points in R using dplyr and ggplot. 
              
          
## gist:6e3dbb232bafec0792ba
import scala.language.experimental.macros
import scala.reflect.macros.blackbox.Context

trait Mappable[T] {
  def toMap(t: T): Map[String, Any]
  def fromMap(map: Map[String, Any]): T
}

object Mappable {


## pom.xml to create GeoTools uber-jar
<project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
    <modelVersion>4.0.0</modelVersion>

    <groupId>org.geotools</groupId>

    <artifactId>gt-uber</artifactId>

    <!-- The version of the GeoTools jars to combine -->
    <version>10.2</version>
	#===============================================================================
	# 2020-06-19 -- twitter
	# improve plot
	# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
	#===============================================================================

	# the challenge
	# https://community.storytellingwithdata.com/exercises/one-little-changeand-a-redesign

	library(tidyverse)
	# Some test data for proportions with mean 0.4
	p <- rbeta(20, 4, 6)

	# JAGS model
	modelTxt <- "model {
	for(i in 1:length(p)) {
	p[i] ~ dbeta(alpha, beta)
	}
	alpha <- mu * phi
	beta <- (1-mu) * phi
	library(ggplot2)
	library(mgcv)

	# Toy data set
	dat <- data.frame(
	x = seq(0, 2*pi, length.out = 100),
	y = sin(3*x) / sin(x/2)
	)

	# Randomly thin the data
	import scala.language.experimental.macros
	import scala.reflect.macros.blackbox.Context

	trait Mappable[T] {
	def toMap(t: T): Map[String, Any]
	def fromMap(map: Map[String, Any]): T
	}

	object Mappable {
	<project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
	xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">
	<modelVersion>4.0.0</modelVersion>

	<groupId>org.geotools</groupId>

	<artifactId>gt-uber</artifactId>

	<!-- The version of the GeoTools jars to combine -->
	<version>10.2</version>