HughParsonage

## get_res_dwel_stats.R
library(rsdmx)
library(data.table)
library(dplyr)

res_dwelling_values_metadata <-
  readSDMX("http://stat.abs.gov.au/restsdmx/sdmx.ashx/GetDataStructure/RES_DWEL_ST/ABS")

recode_res_dwelling_values <- function(DT, colname){
  cls <- slot(res_dwelling_values_metadata, "codelists")
  codelists <- sapply(slot(cls, "codelists"), function(x) slot(x, "id"))

## fin_stress_age_welfare_renting.R
library(data.table)
library(ggplot2)
library(scales)
library(grattan)
library(readxl)
library(grid)

# The Housing Expenditure Survey (STATA) file
# 2009-10
# requires authority from ABS in order to access.

## how_ATO_sample_cols_are_related.R
library(data.table)
library(taxstats)
library(dplyr)


## How are the sample file columns related to each other?

# http://stackoverflow.com/questions/13088770/how-to-write-linearly-dependent-column-in-a-matrix-in-terms-of-linearly-independ
linfinder <- function(mat){
  # If the matrix is full rank then we're done

## knitr-ggplot2-flush-margin.Rnw
\documentclass[twocolumn, landscape]{article}
\usepackage{geometry}
\usepackage{float, placeins}

\addtolength{\columnsep}{25pt}

\usepackage{lipsum}

\title{Making charts in \LaTeX{} + \texttt{knitr} where $x = 0$ is on the left margin.}

## numbers2words.R
  #https://github.com/ateucher/useful_code/blob/master/R/numbers2words.r
  numbers2words <- function(x){
    ## Function by John Fox found here:
    ## http://tolstoy.newcastle.edu.au/R/help/05/04/2715.html
    ## Tweaks by AJH to add commas and "and"
    helper <- function(x){

      digits <- rev(strsplit(as.character(x), "")[[1]])
      nDigits <- length(digits)
      if (nDigits == 1) as.vector(ones[digits])

## n-affected-by-div293.R
library(taxstats)
library(grattan)
library(data.table)
library(dplyr)
library(magrittr)

n_affected_by_div293 <-  function(div293.threshold = 300e3, cap = 30000, cap2 = 35000, age_based_cap = TRUE, div293 = TRUE,  super.guarantee.rate = 0.095, use.sample.file = "2013-14", h = 0L){
  sample_file_extended <-
    # sample_files_all[fy.year == use.sample.file] %>%
    sample_file_1314 %>%

## sportsbet_2016_election_scraper.R
library(rvest)
library(dplyr)
library(tidyr)
library(xml2)
library(data.table)

url_act_electorates_outrights <-
  "http://www.sportsbet.com.au/betting/politics/australian-federal-politics/outrights?ev_oc_grp_id=1971028"
url_nt <-
  "http://www.sportsbet.com.au/betting/politics/australian-federal-politics/outrights?ev_oc_grp_id=1971052"

## Senate-non-major-party-votes
library(magrittr)
library(data.table)
library(dplyr)
library(dtplyr)
library(broom)
library(grid)
library(gridExtra)
library(gtable)
library(ggplot2)
library(ggthemes)

## Super-balance-by-age.html
<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta charset="utf-8">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="pandoc" />

## first-100-numbers-as-words.tsv

          
            number
            words

            
              1
              one

            
              2
              two

            
              3
              three

            
              4
              four

            
              5
              five

            
              6
              six

            
              7
              seven

            
              8
              eight

            
              9
              nine
	library(rsdmx)
	library(data.table)
	library(dplyr)

	res_dwelling_values_metadata <-
	readSDMX("http://stat.abs.gov.au/restsdmx/sdmx.ashx/GetDataStructure/RES_DWEL_ST/ABS")

	recode_res_dwelling_values <- function(DT, colname){
	cls <- slot(res_dwelling_values_metadata, "codelists")
	codelists <- sapply(slot(cls, "codelists"), function(x) slot(x, "id"))
	library(data.table)
	library(ggplot2)
	library(scales)
	library(grattan)
	library(readxl)
	library(grid)

	# The Housing Expenditure Survey (STATA) file
	# 2009-10
	# requires authority from ABS in order to access.
	library(data.table)
	library(taxstats)
	library(dplyr)


	## How are the sample file columns related to each other?

	# http://stackoverflow.com/questions/13088770/how-to-write-linearly-dependent-column-in-a-matrix-in-terms-of-linearly-independ
	linfinder <- function(mat){
	# If the matrix is full rank then we're done
	\documentclass[twocolumn, landscape]{article}
	\usepackage{geometry}
	\usepackage{float, placeins}

	\addtolength{\columnsep}{25pt}

	\usepackage{lipsum}

	\title{Making charts in \LaTeX{} + \texttt{knitr} where $x = 0$ is on the left margin.}
	#https://github.com/ateucher/useful_code/blob/master/R/numbers2words.r
	numbers2words <- function(x){
	## Function by John Fox found here:
	## http://tolstoy.newcastle.edu.au/R/help/05/04/2715.html
	## Tweaks by AJH to add commas and "and"
	helper <- function(x){

	digits <- rev(strsplit(as.character(x), "")[[1]])
	nDigits <- length(digits)
	if (nDigits == 1) as.vector(ones[digits])
	library(rvest)
	library(dplyr)
	library(tidyr)
	library(xml2)
	library(data.table)

	url_act_electorates_outrights <-
	"http://www.sportsbet.com.au/betting/politics/australian-federal-politics/outrights?ev_oc_grp_id=1971028"
	url_nt <-
	"http://www.sportsbet.com.au/betting/politics/australian-federal-politics/outrights?ev_oc_grp_id=1971052"
	library(magrittr)
	library(data.table)
	library(dplyr)
	library(dtplyr)
	library(broom)
	library(grid)
	library(gridExtra)
	library(gtable)
	library(ggplot2)
	library(ggthemes)
	<!DOCTYPE html>

	<html xmlns="http://www.w3.org/1999/xhtml">

	<head>

	<meta charset="utf-8">
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<meta name="generator" content="pandoc" />