housing <- read.table("http://commres.net/wiki/_export/code/r/data?codeblock=1", header=T, sep="\t")