twedl

/*
run `cargo new your-project-name` in terminal
this is src/main.rs
input.txt is in the root dir of your-project-name
*/

use std::fs;

fn main() {

twedl

# Get 2016 Census data on major field of study by sex

library(tidyverse)
library(janitor)

census_url <- "https://www12.statcan.gc.ca/census-recensement/2016/dp-pd/dt-td/CompDataDownload.cfm?LANG=E&PID=110456&OFT=CSV"

# wherever works for you; this is good for MacOS
destination_file <- "~/Downloads/census_education.zip"

twedl

# Download the World Trade Database from http://cid.econ.ucdavis.edu/ucdstats.html
# From documentation: value is in thousands of current USD.
library(reshape2)
library(dplyr)
library(readr)

process_file <- function(f_name) {
  # returns unzipped file.
  # create tempfile to remove later.
  tf <- tempfile(pattern="wtdb",fileext="zip")

twedl

# base. not even sure why or how this works.
temp=as.data.frame(as.matrix(unlist(by(asm$g,asm[,"year"],
                                FUN=quantile, prob=.025))))
colnames(temp)[1]="q2.5"      # wut.
temp$year=rownames(temp)      # wut.
asm=merge(asm,temp,by="year") # and slooow.

# dplyr. ez.
low = asm %>%
      group_by(year) %>%

twedl

• Production network example.

twedl

First attempt at the d3 force layout grammar heading words letters style.

twedl

Add a flow info

twedl

(Please click this link to open in new window.) Testing Bostock's leaflet.js tutorial, adding relevant Canadian stuff for the project.

twedl

Map with bundled trade flows.

twedl

Choropleth Map