dbetebenner

license:gpl-3.0
height:600
border:no

dbetebenner

license:gpl-3.0
height:700
border:no

dbetebenner

license:gpl-3.0
height:500
border:no

dbetebenner

license:gpl-3.0
height:500
border:no

dbetebenner

license:gpl-3.0
height:500
border:no

dbetebenner

license:gpl-3.0
height:760
border:no

dbetebenner

{
  "math": [
    {
      "subjectLabel": "Reading",
      "minYear": 2008,
      "maxYear": 2012,
      "labels": [
        "Unsatisfactory",
        "Part Proficient",
        "Proficient",

dbetebenner

######################################################################
###
### R script to run SGP analyses for Michigan
###
######################################################################

### Load packages

library("SGP")
library("data.table")

dbetebenner

d3.sankey = function() {
  var sankey = {},
      nodeWidth = 24,
      nodePadding = 8,
      size = [1, 1],
      nodes = [],
      links = [];

  sankey.nodeWidth = function(_) {
    if (!arguments.length) return nodeWidth;

dbetebenner

## Set options

options(width=200)
options(error=utils::recover)


## Create a new invisible environment for all the functions to go in so it doesn't clutter your workspace.

.env <- new.env()