## 'data.frame':    252 obs. of  6 variables:
##  $ Year          : num  2014 2014 2014 2014 2014 ...
##  $ Listing.Price : int  599000 455000 749000 399000 399000 679000 620000 559000 399000 659000 ...
##  $ Original.Price: int  729000 489000 749000 409000 399000 679000 620000 559000 399000 659000 ...
##  $ Sold.Price    : int  525000 449500 730000 389000 375000 665000 605000 520000 390000 659000 ...
##  $ Difference    : num  12.4 1.2 2.5 2.5 6 2.1 2.4 7 2.3 0 ...
##  $ Diff          : num  -12.4 -1.2 -2.5 -2.5 -6 -2.1 -2.4 -7 -2.3 0 ...

In case some of us dont remember how to read our Boxplots,

the thick line in the middle of the box is the MEDIAN SOLD , not the asking price–

not the average, remember the difference?–not the asking price.

The bottom line is what the 1/4 of the homes sold for, inside the box is what

the middle 50% of homes sold for,between the top of the box and and the top

of the line sticking out were the 25% most expensive homes.

Those dots above the line? They are more than 2x the standard deviations away.

Lets just say they data we can ignore

Note that the line for median is going up each year. That is good news.

And the one house that closed so far this year closed high.

2018 struck me as odd.

I checked my code. 2017 showed 56 units sold.

Could only 1 home have sold so far in 2018?

Well this is unexpected.

Same numberof homes coming on the mkt.

Let us take a look a the number of homes closed Jan through April for each year.

Confusing picture.

About the same number of homes have come on the mkt as in the past 4 years.

yet so far only 1 has closed while inthe past 4 years 18 to 22 closed during

this same quarter.

Have any homes sold over asking?

The Red Bar Represents The Asking Price.

Each Bar Represents All Of The Homes That Were Sold Each Year.

Where Each Bar is Set Against The Red Line Tells One

How Many HomesSoldOver Asking For That Year

Bars Pushing To the LEft of The ASking Price Sold

For Less Than Aking. Bars To The Right Sold For Over Asking

#Overasking<- filter(Hunt ,Hunt$X..Difference>0)