Chris Given cmgiven

## maze.es6
// Having derived that any valid maze must have one and only one wall emanating
// from each of its inner vertices, we express a given arrangement of walls as
// a bit array with each vertex represented by two bits, corresponding to the
// direction its wall points. The northwest corner of the maze occupies the
// most significant bit, with the remainder of the vertices ordered left to
// right, top to bottom. The represented direction is as follows:
var NORTH = 0b00, // 0
    EAST  = 0b01, // 1
    SOUTH = 0b10, // 2
    WEST  = 0b11; // 3

## .block
license: mit

## .block
license: mit

## .block
license: mit

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                cmgiven
                / keybase.md
            
            
              Created
              November 12, 2016 16:16
            
          
    Keybase proof

I hereby claim:

I am cmgiven on github.
I am cmgiven (https://keybase.io/cmgiven) on keybase.
I have a public key whose fingerprint is A08A 263C F610 EF95 8CDB  84F0 CF79 B8A5 DDC3 931E

To claim this, I am signing this object:

  
## aecf_id_load.R
library("dplyr")

options(stringsAsFactors=FALSE)

bhs <- read.csv("Behavioral Health Services.csv") %>%
  mutate(
    SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
    SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),
    SUBMT_DT = as.Date(SUBMT_DT, "%m/%d/%Y")
  )

## bhs_cooccur.R
library("dplyr")
library("tidyr")
library("cooccur")

options(stringsAsFactors=FALSE)

bhs <- read.csv("Behavioral Health Services - higher grouping.csv") %>%
  mutate(
    SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
    SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),

## .block
license: mit
height: 800

## sample.R
install.packages(c("ROracle", "dplyr", "lubridate", "glue", "survival"))
source("R/vacolsConnect.R")
library(dplyr)
library(lubridate)
library(glue)
library(survival)

con <- vacolsConnect()
query <- function (query) { return(dbGetQuery(con, query)) }

## .block
license: mit
height: 350
	// Having derived that any valid maze must have one and only one wall emanating
	// from each of its inner vertices, we express a given arrangement of walls as
	// a bit array with each vertex represented by two bits, corresponding to the
	// direction its wall points. The northwest corner of the maze occupies the
	// most significant bit, with the remainder of the vertices ordered left to
	// right, top to bottom. The represented direction is as follows:
	var NORTH = 0b00, // 0
	EAST = 0b01, // 1
	SOUTH = 0b10, // 2
	WEST = 0b11; // 3
	library("dplyr")

	options(stringsAsFactors=FALSE)

	bhs <- read.csv("Behavioral Health Services.csv") %>%
	mutate(
	SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
	SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),
	SUBMT_DT = as.Date(SUBMT_DT, "%m/%d/%Y")
	)
	library("dplyr")
	library("tidyr")
	library("cooccur")

	options(stringsAsFactors=FALSE)

	bhs <- read.csv("Behavioral Health Services - higher grouping.csv") %>%
	mutate(
	SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
	SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),
	install.packages(c("ROracle", "dplyr", "lubridate", "glue", "survival"))
	source("R/vacolsConnect.R")
	library(dplyr)
	library(lubridate)
	library(glue)
	library(survival)

	con <- vacolsConnect()
	query <- function (query) { return(dbGetQuery(con, query)) }