\documentclass{article}

\author{David Forrest}
\title{A look at the Gloucester County Board Of Equalization
  Assessment Model}
\date{2006-12-01}


\usepackage{Sweave}
\begin{document}

\maketitle




From the Gloucester County Commissioner of Revenue office's web page,
can find out the sales numbers and acreage of properties of interest.
For the reassessment, the BOE could only use the 2005 sales data to
establish their valuations and categories.

For the 2005, BOE Zone 1B, the map 51 data for the commercial sales
might be representative:

\begin{Schunk}
\begin{Sinput}
> data <- paste(sep = "\n", "RPC,Map,Sale,Acreage", "27176,51-67B,135000,0.70", 
+     "12617,51-386A,129900,2.00", "11490,51-70A,410000,0.58", 
+     "23923,51A(2)BK B-F,210000,NA", "19391,51E(1)BK C-3,40000,0.2", 
+     "21696,51F(2)BK A-4,224900,0.51")
> sales <- read.csv(textConnection(data))
\end{Sinput}
\end{Schunk}

Plotting these values shows what data is available for this BOE Zone:






\includegraphics{GCreass-data}


Now, based on this data, the BOE established the categories and per square foot
values to form a valuation model representative of the data.  This is
the model.


\includegraphics{GCreass-boePlot}


These lines do not match the data very well.

I'm particularly concerned because this model affects me by assessing me at
4 times what I paid for my home in 2004:

\includegraphics{GCreass-gored}



% Sweave(testfile) 
% Stangle(testfile)



\end{document}