Introdução

O caso Easton trata de uma imobiliária localizada em Atlanta que está sendo acusada de subvalorizar os imóveis, chegando até mesmo a atingir seu corretores, alegando que eles estavam vendendo imóveis subvalorizados só para receberem a comissão logo.
O caso traz então, duas problemáticas, uma mais geral, querendo saber se a imobiliária estava subvalorizando ou não os imóveis com relação as outras imobiliárias, e umas mais particular, pedidno para determinar se as casas apresentadas em questão foram ou não subvalorizadas,com relação as outra imobiliárias, como acusam os clientes.

Carregando o banco de dados Easton

O banco de dados é composto pelas variáveis: mês, tamanho, corretora, preço, idade, localização e quartos. Dados fornecidos por uma avaliadora imobiliária local, Pat McCloskey.

library(readxl)
Easton <- read_excel("C:/Users/TM-CASA/Downloads/Base_de_dados-master/Easton.xlsx")
head(Easton)
## # A tibble: 6 x 7
##     Mês  Preço Tamanho Quartos Idade Localização Corretora
##   <dbl>  <dbl>   <dbl>   <dbl> <dbl>       <dbl>     <dbl>
## 1     3 172950    174.       3     2           1         0
## 2     3 167250    183.       3     2           1         0
## 3     3 158250    172.       3     2           1         0
## 4     3 150750    210.       4     2           3         0
## 5     3 139050    190.       3     2           2         1
## 6     3 138150    129.       2     2           1         0

Manipulando as variáveis

names(Easton)
## [1] "Mês"         "Preço"       "Tamanho"     "Quartos"     "Idade"      
## [6] "Localização" "Corretora"
nomes <- c ("Mes", "Preco", "Tamanho", "Quartos", "Idade", "Localizacao", "Corretora")
colnames(Easton) <- nomes
names(Easton)
## [1] "Mes"         "Preco"       "Tamanho"     "Quartos"     "Idade"      
## [6] "Localizacao" "Corretora"
Easton$Mes <- as.factor(Easton$Mes)
levels(Easton$Mes)<- c("Março","Abril","Maio","Junho")

Easton$Corretora <- as.factor(Easton$Corretora)
levels(Easton$Corretora)<- c("Easton","Outra Corretora")

Easton$Localizacao <- as.factor(Easton$Localizacao)
levels(Easton$Localizacao)<- c("Dallas","Fort Worth", "Metropolitana" )

library(knitr)
kable(Easton)
Mes Preco Tamanho Quartos Idade Localizacao Corretora
Março 172950 173.54289 3 2 Dallas Easton
Março 167250 183.01900 3 2 Dallas Easton
Março 158250 172.24224 3 2 Dallas Easton
Março 150750 209.77507 4 2 Metropolitana Easton
Março 139050 190.35834 3 2 Fort Worth Outra Corretora
Março 138150 129.41394 2 2 Dallas Easton
Março 129300 113.52752 2 2 Dallas Easton
Março 111900 140.74811 3 2 Metropolitana Easton
Março 175350 206.98798 4 3 Dallas Easton
Março 172350 181.25384 4 3 Dallas Easton
Março 162900 161.93000 3 3 Dallas Easton
Março 158250 150.22422 4 3 Dallas Easton
Março 150750 143.16359 3 3 Dallas Easton
Março 123600 167.22548 3 3 Fort Worth Easton
Março 116700 137.31070 2 3 Fort Worth Easton
Março 183750 196.67574 3 4 Dallas Easton
Março 180000 182.46158 3 4 Dallas Easton
Março 174150 234.02277 4 4 Fort Worth Easton
Março 165750 171.68482 2 4 Dallas Easton
Março 165750 222.40989 3 4 Fort Worth Easton
Março 158400 149.38809 2 4 Dallas Easton
Março 154200 174.37901 3 4 Dallas Easton
Março 151650 153.56873 3 4 Dallas Easton
Março 151500 149.29519 3 4 Dallas Easton
Março 151050 164.43839 3 4 Dallas Easton
Março 132900 142.79198 2 4 Dallas Easton
Março 126600 153.84744 3 4 Fort Worth Easton
Março 122250 130.25007 2 4 Dallas Easton
Março 121650 176.14417 4 4 Metropolitana Outra Corretora
Março 121350 142.23456 3 4 Fort Worth Easton
Março 119550 159.14291 3 4 Metropolitana Easton
Março 108750 126.16233 2 4 Fort Worth Easton
Março 185850 193.98155 3 5 Dallas Easton
Março 168900 174.37901 3 5 Dallas Easton
Março 168300 191.65898 3 5 Dallas Easton
Março 153150 210.51830 3 5 Fort Worth Easton
Março 148800 149.57390 3 5 Dallas Outra Corretora
Março 144150 172.24224 4 5 Fort Worth Easton
Março 135750 182.27577 3 5 Fort Worth Easton
Março 132750 142.04875 3 5 Dallas Easton
Março 131400 199.46283 3 5 Metropolitana Outra Corretora
Março 129900 165.08871 3 5 Fort Worth Easton
Março 129750 138.33263 2 5 Dallas Easton
Março 124950 159.60743 3 5 Metropolitana Easton
Março 115350 177.16610 3 5 Metropolitana Easton
Março 108900 144.09262 3 5 Metropolitana Easton
Março 190650 210.05378 4 6 Dallas Easton
Março 187200 208.47443 4 6 Dallas Easton
Março 184050 176.14417 3 6 Dallas Easton
Março 175500 203.45767 4 6 Dallas Easton
Março 174300 256.13369 4 6 Fort Worth Easton
Março 171300 217.48603 4 6 Fort Worth Easton
Março 166200 168.43322 3 6 Dallas Easton
Março 165600 233.55825 4 6 Fort Worth Easton
Março 165150 176.42288 3 6 Dallas Easton
Março 154050 158.39969 3 6 Dallas Easton
Março 152250 202.43573 3 6 Fort Worth Easton
Março 150450 160.72227 3 6 Dallas Easton
Março 145950 144.55714 3 6 Dallas Easton
Março 145050 148.45906 3 6 Dallas Easton
Março 138750 149.10939 3 6 Dallas Easton
Março 138150 195.65381 4 6 Fort Worth Easton
Março 136950 142.60617 3 6 Dallas Easton
Março 135000 168.99064 3 6 Fort Worth Outra Corretora
Março 132750 170.66289 3 6 Fort Worth Easton
Março 130200 177.72352 3 6 Metropolitana Outra Corretora
Março 127950 179.67449 3 6 Metropolitana Easton
Março 124650 156.54163 3 6 Metropolitana Easton
Março 120900 172.05644 3 6 Fort Worth Easton
Março 114450 148.64487 3 6 Metropolitana Easton
Março 110100 141.95585 3 6 Metropolitana Outra Corretora
Março 99450 130.43587 2 6 Metropolitana Outra Corretora
Março 184800 231.79309 4 7 Fort Worth Easton
Março 178050 180.04610 2 7 Dallas Easton
Março 169800 168.06161 4 7 Dallas Easton
Março 163350 190.63705 3 7 Dallas Easton
Março 159600 152.45389 3 7 Dallas Easton
Março 158550 227.51955 3 7 Metropolitana Easton
Março 152550 204.38670 3 7 Fort Worth Easton
Março 148200 143.44230 3 7 Dallas Easton
Março 148050 183.85512 3 7 Fort Worth Easton
Março 145800 181.53255 3 7 Fort Worth Easton
Março 141600 159.05001 3 7 Dallas Easton
Março 140550 186.73512 3 7 Metropolitana Easton
Março 138600 181.16093 4 7 Metropolitana Easton
Março 125100 141.58424 3 7 Dallas Easton
Março 120600 169.45515 4 7 Fort Worth Easton
Março 119400 139.35457 3 7 Fort Worth Easton
Março 117150 141.77004 3 7 Fort Worth Easton
Março 110850 158.21388 3 7 Metropolitana Outra Corretora
Março 109200 126.53395 2 7 Fort Worth Easton
Março 107400 153.66163 2 7 Fort Worth Easton
Março 184650 205.22282 4 8 Dallas Easton
Março 168000 169.26935 3 8 Dallas Easton
Março 161700 168.80483 3 8 Dallas Easton
Março 158850 212.93378 3 8 Fort Worth Easton
Março 157650 186.64221 3 8 Fort Worth Easton
Março 157200 137.12489 4 8 Dallas Easton
Março 156150 171.12741 4 8 Dallas Easton
Março 153300 210.23959 3 8 Fort Worth Easton
Março 149550 152.17519 2 8 Dallas Easton
Março 144150 167.59709 3 8 Fort Worth Easton
Março 140400 189.33640 4 8 Fort Worth Outra Corretora
Março 140250 206.24476 4 8 Metropolitana Easton
Março 134100 193.23833 3 8 Fort Worth Outra Corretora
Março 132750 151.61777 3 8 Dallas Easton
Março 126600 203.45767 3 8 Metropolitana Easton
Março 118800 160.25775 3 8 Fort Worth Easton
Março 112500 162.48742 2 8 Metropolitana Easton
Março 180750 178.46675 3 9 Dallas Easton
Março 180150 196.58284 3 9 Dallas Easton
Março 168000 164.81000 3 9 Dallas Easton
Março 157650 158.02808 3 9 Dallas Easton
Março 157350 149.94551 4 9 Dallas Easton
Março 157200 161.09388 4 9 Dallas Easton
Março 127950 165.36742 3 9 Fort Worth Easton
Março 127050 167.22548 3 9 Metropolitana Easton
Março 121500 167.78290 3 9 Fort Worth Easton
Março 121050 111.57656 2 9 Dallas Easton
Março 178500 199.83445 4 10 Dallas Easton
Março 173550 239.13243 4 10 Fort Worth Easton
Março 170400 196.39703 3 10 Dallas Easton
Março 158100 174.75063 3 10 Dallas Easton
Março 129450 184.22674 3 10 Fort Worth Easton
Março 130050 139.26166 3 11 Dallas Easton
Março 183000 213.49119 3 12 Dallas Easton
Abril 179700 205.59444 3 2 Dallas Easton
Abril 160950 168.71193 3 2 Dallas Easton
Abril 156450 156.91324 3 2 Dallas Easton
Abril 152250 163.97387 3 2 Dallas Easton
Abril 187200 203.08605 4 3 Dallas Easton
Abril 133950 178.37384 3 3 Fort Worth Easton
Abril 127050 147.53003 4 3 Fort Worth Easton
Abril 126150 164.62419 4 3 Metropolitana Easton
Abril 115050 154.03325 4 3 Fort Worth Easton
Abril 171150 199.18413 3 4 Dallas Easton
Abril 162450 160.16485 2 4 Dallas Easton
Abril 158850 218.69376 4 4 Fort Worth Easton
Abril 157200 220.64473 4 4 Fort Worth Easton
Abril 154200 154.12615 2 4 Dallas Easton
Abril 151950 168.89773 3 4 Dallas Easton
Abril 150450 158.21388 3 4 Dallas Easton
Abril 142800 148.27326 3 4 Dallas Easton
Abril 131700 155.51970 3 4 Fort Worth Outra Corretora
Abril 124650 157.65646 3 4 Fort Worth Easton
Abril 123300 169.17644 4 4 Fort Worth Easton
Abril 114750 146.78681 2 4 Fort Worth Easton
Abril 105600 137.58941 2 4 Fort Worth Easton
Abril 187500 217.57893 3 5 Dallas Easton
Abril 183600 216.46409 4 5 Dallas Easton
Abril 175800 191.65898 3 5 Dallas Easton
Abril 169500 186.54931 3 5 Dallas Easton
Abril 168750 173.07837 3 5 Dallas Easton
Abril 165000 181.25384 3 5 Dallas Easton
Abril 162450 224.73246 3 5 Metropolitana Easton
Abril 155550 190.07963 2 5 Dallas Easton
Abril 153900 156.72743 3 5 Dallas Easton
Abril 146250 149.01648 3 5 Dallas Easton
Abril 140400 199.92735 4 5 Fort Worth Outra Corretora
Abril 139950 135.63844 2 5 Dallas Easton
Abril 139050 194.35317 4 5 Metropolitana Easton
Abril 138750 152.17519 3 5 Dallas Easton
Abril 136500 138.51844 2 5 Dallas Easton
Abril 131850 142.60617 3 5 Dallas Easton
Abril 127650 175.12224 3 5 Metropolitana Easton
Abril 123300 162.95194 3 5 Metropolitana Easton
Abril 122550 157.19195 3 5 Metropolitana Easton
Abril 122250 140.28360 2 5 Metropolitana Easton
Abril 120750 161.27968 3 5 Metropolitana Easton
Abril 117750 162.85904 3 5 Fort Worth Easton
Abril 116850 149.66680 3 5 Metropolitana Easton
Abril 115950 161.37259 3 5 Fort Worth Easton
Abril 115800 154.96228 3 5 Fort Worth Easton
Abril 115200 191.65898 4 5 Metropolitana Easton
Abril 114600 155.98421 3 5 Fort Worth Easton
Abril 177900 188.87189 3 6 Dallas Easton
Abril 176550 194.26026 3 6 Dallas Outra Corretora
Abril 168000 240.43308 4 6 Metropolitana Easton
Abril 163800 241.73372 4 6 Fort Worth Easton
Abril 154500 168.52612 3 6 Dallas Easton
Abril 140700 166.11064 4 6 Fort Worth Easton
Abril 137400 176.98030 3 6 Metropolitana Easton
Abril 132450 181.99706 3 6 Fort Worth Outra Corretora
Abril 117750 130.25007 2 6 Fort Worth Easton
Abril 112350 140.65521 2 6 Fort Worth Easton
Abril 110850 102.00754 2 6 Dallas Easton
Abril 110700 119.28751 2 6 Dallas Easton
Abril 108600 154.59066 3 6 Metropolitana Easton
Abril 100050 120.58815 2 6 Fort Worth Outra Corretora
Abril 181800 210.33249 4 7 Dallas Easton
Abril 161700 163.32355 3 7 Dallas Easton
Abril 160500 205.78024 3 7 Fort Worth Easton
Abril 159600 227.89117 4 7 Metropolitana Easton
Abril 158100 165.83193 3 7 Dallas Easton
Abril 157200 170.56999 3 7 Dallas Easton
Abril 156450 219.43699 4 7 Metropolitana Outra Corretora
Abril 151200 232.25761 3 7 Metropolitana Easton
Abril 150450 165.73903 3 7 Dallas Easton
Abril 150150 166.20354 3 7 Dallas Easton
Abril 149100 165.92484 3 7 Dallas Easton
Abril 148050 152.54680 3 7 Dallas Easton
Abril 147750 215.16345 3 7 Metropolitana Easton
Abril 146400 130.62168 2 7 Dallas Easton
Abril 145800 214.32732 4 7 Fort Worth Outra Corretora
Abril 145050 175.95836 4 7 Dallas Easton
Abril 141150 157.00614 3 7 Dallas Easton
Abril 129900 159.70033 3 7 Fort Worth Outra Corretora
Abril 124350 167.31838 4 7 Fort Worth Easton
Abril 121200 187.47834 4 7 Metropolitana Easton
Abril 181050 189.15060 3 8 Dallas Easton
Abril 177000 187.57125 4 8 Dallas Easton
Abril 173100 202.62154 3 8 Dallas Easton
Abril 166500 181.34674 4 8 Dallas Easton
Abril 160800 209.68217 4 8 Fort Worth Easton
Abril 160500 173.91450 3 8 Dallas Easton
Abril 159000 208.10282 4 8 Fort Worth Easton
Abril 153750 160.72227 3 8 Dallas Easton
Abril 153750 167.22548 3 8 Dallas Easton
Abril 150300 168.34032 3 8 Dallas Easton
Abril 146250 162.48742 3 8 Dallas Easton
Abril 144300 210.14668 3 8 Fort Worth Easton
Abril 143700 155.24099 3 8 Dallas Easton
Abril 132300 181.62545 3 8 Metropolitana Easton
Abril 128700 133.68748 3 8 Dallas Easton
Abril 123900 174.37901 4 8 Metropolitana Easton
Abril 123600 161.55839 3 8 Fort Worth Easton
Abril 121350 192.49511 3 8 Metropolitana Easton
Abril 117300 151.33906 3 8 Fort Worth Easton
Abril 103800 178.28094 3 8 Metropolitana Easton
Abril 169350 205.31573 3 9 Dallas Easton
Abril 145800 142.69907 3 9 Dallas Easton
Abril 136350 196.11832 3 9 Fort Worth Easton
Abril 126150 158.39969 3 9 Fort Worth Easton
Abril 124950 182.36867 4 9 Metropolitana Outra Corretora
Abril 123300 187.38544 3 9 Metropolitana Easton
Abril 122700 170.66289 3 9 Fort Worth Easton
Abril 178050 197.41897 3 10 Dallas Easton
Abril 154800 198.25510 4 10 Fort Worth Easton
Abril 139950 196.95445 3 10 Fort Worth Easton
Abril 134250 168.52612 4 10 Fort Worth Easton
Abril 128400 188.12866 3 11 Metropolitana Easton
Abril 119850 119.19460 2 11 Dallas Easton
Abril 118800 159.60743 4 11 Fort Worth Outra Corretora
Abril 149850 210.61120 4 13 Metropolitana Easton
Maio 178500 208.84604 4 3 Dallas Easton
Maio 176250 191.10156 3 3 Dallas Easton
Maio 166950 202.15702 3 3 Dallas Easton
Maio 166500 191.38027 3 3 Dallas Easton
Maio 159600 191.19446 3 3 Dallas Easton
Maio 133350 189.52221 3 3 Metropolitana Easton
Maio 117600 167.13258 3 3 Fort Worth Easton
Maio 102300 166.85387 3 3 Metropolitana Easton
Maio 174150 189.70801 3 4 Dallas Easton
Maio 173850 238.76082 3 4 Fort Worth Outra Corretora
Maio 173100 193.79575 3 4 Dallas Outra Corretora
Maio 146400 210.42539 4 4 Fort Worth Easton
Maio 146250 206.15185 4 4 Fort Worth Easton
Maio 143850 221.48086 4 4 Metropolitana Easton
Maio 135600 164.06678 3 4 Metropolitana Easton
Maio 135000 151.89648 3 4 Dallas Easton
Maio 132000 170.75579 3 4 Fort Worth Easton
Maio 131700 212.46926 4 4 Metropolitana Easton
Maio 131400 184.22674 3 4 Fort Worth Easton
Maio 127800 148.45906 3 4 Dallas Easton
Maio 123900 154.03325 3 4 Fort Worth Outra Corretora
Maio 122400 183.76222 4 4 Metropolitana Easton
Maio 121200 130.90039 2 4 Dallas Easton
Maio 179550 194.07446 4 5 Dallas Easton
Maio 160950 168.24741 3 5 Dallas Outra Corretora
Maio 156900 161.46549 3 5 Dallas Easton
Maio 148950 164.90290 3 5 Dallas Easton
Maio 145200 205.12992 4 5 Fort Worth Easton
Maio 132900 198.71961 3 5 Fort Worth Easton
Maio 129450 179.48868 3 5 Metropolitana Easton
Maio 127500 164.43839 3 5 Fort Worth Outra Corretora
Maio 126900 166.57516 3 5 Dallas Easton
Maio 126300 127.37007 2 5 Dallas Easton
Maio 122100 183.48351 3 5 Metropolitana Outra Corretora
Maio 117900 176.32998 3 5 Metropolitana Easton
Maio 117300 165.36742 2 5 Fort Worth Easton
Maio 112650 128.67072 2 5 Dallas Easton
Maio 110700 151.80357 2 5 Fort Worth Easton
Maio 104400 137.58941 2 5 Fort Worth Easton
Maio 175950 201.87831 3 6 Dallas Easton
Maio 166650 170.75579 3 6 Dallas Easton
Maio 162150 213.95571 3 6 Fort Worth Easton
Maio 151950 202.52864 4 6 Fort Worth Easton
Maio 150300 226.40472 4 6 Metropolitana Easton
Maio 146700 234.95180 4 6 Metropolitana Outra Corretora
Maio 145200 209.31056 3 6 Fort Worth Easton
Maio 144750 156.82034 3 6 Dallas Easton
Maio 142800 151.24615 3 6 Dallas Easton
Maio 141150 149.94551 3 6 Dallas Easton
Maio 138450 186.92092 4 6 Metropolitana Easton
Maio 138000 195.09639 4 6 Fort Worth Easton
Maio 133650 183.29771 4 6 Metropolitana Easton
Maio 131400 195.09639 4 6 Metropolitana Easton
Maio 129450 190.45124 3 6 Metropolitana Easton
Maio 128100 142.14166 3 6 Dallas Easton
Maio 125550 196.11832 3 6 Metropolitana Easton
Maio 117600 175.02933 4 6 Metropolitana Easton
Maio 117450 181.06803 3 6 Metropolitana Easton
Maio 112200 163.69516 2 6 Fort Worth Easton
Maio 109350 99.31335 2 6 Dallas Easton
Maio 108900 151.06035 3 6 Metropolitana Easton
Maio 108600 138.42553 2 6 Fort Worth Easton
Maio 108150 138.61134 2 6 Fort Worth Easton
Maio 107400 156.35582 3 6 Metropolitana Easton
Maio 104250 110.83333 2 6 Dallas Easton
Maio 103350 156.91324 3 6 Fort Worth Easton
Maio 102450 134.61651 2 6 Metropolitana Easton
Maio 165450 189.61511 3 7 Dallas Easton
Maio 155550 161.09388 3 7 Dallas Easton
Maio 154050 236.80986 4 7 Metropolitana Easton
Maio 146850 168.15451 3 7 Dallas Easton
Maio 145950 171.49902 3 7 Dallas Easton
Maio 141900 193.79575 3 7 Metropolitana Easton
Maio 137250 146.78681 2 7 Dallas Easton
Maio 133650 121.23847 4 7 Dallas Easton
Maio 131850 148.83068 3 7 Dallas Easton
Maio 127200 166.11064 4 7 Metropolitana Easton
Maio 121350 177.90933 3 7 Metropolitana Easton
Maio 119850 139.44747 3 7 Fort Worth Easton
Maio 117900 168.43322 4 7 Metropolitana Easton
Maio 115200 159.14291 3 7 Fort Worth Easton
Maio 111900 180.32481 3 7 Metropolitana Outra Corretora
Maio 108300 153.47583 3 7 Fort Worth Easton
Maio 108000 172.52095 3 7 Metropolitana Easton
Maio 107400 132.29393 2 7 Fort Worth Easton
Maio 178050 188.03576 3 8 Dallas Easton
Maio 177750 253.81112 4 8 Metropolitana Easton
Maio 173400 192.86672 3 8 Dallas Easton
Maio 172200 266.81754 4 8 Metropolitana Easton
Maio 164700 187.57125 3 8 Dallas Easton
Maio 157500 222.78150 4 8 Fort Worth Easton
Maio 152550 217.02151 3 8 Fort Worth Easton
Maio 137250 152.82551 3 8 Dallas Easton
Maio 134400 154.40486 2 8 Dallas Easton
Maio 133500 192.40220 3 8 Metropolitana Easton
Maio 124200 165.64613 4 8 Fort Worth Easton
Maio 108000 154.86937 3 8 Fort Worth Easton
Maio 178350 212.74797 4 9 Dallas Easton
Maio 171150 198.44090 4 9 Dallas Outra Corretora
Maio 171000 191.00866 4 9 Dallas Easton
Maio 158100 186.27060 3 9 Dallas Easton
Maio 148650 168.52612 3 9 Dallas Easton
Maio 145500 207.26669 4 9 Metropolitana Easton
Maio 144900 180.69642 4 9 Dallas Easton
Maio 139350 160.16485 3 9 Dallas Easton
Maio 124200 186.82802 3 9 Fort Worth Easton
Maio 121950 180.32481 3 9 Fort Worth Easton
Maio 121500 154.12615 3 9 Fort Worth Easton
Maio 117000 138.42553 3 9 Dallas Easton
Maio 106800 141.02682 2 9 Fort Worth Easton
Maio 154050 158.58550 4 10 Dallas Easton
Maio 120150 184.87706 4 10 Fort Worth Outra Corretora
Maio 114300 168.15451 3 10 Fort Worth Outra Corretora
Maio 102000 156.26292 3 10 Fort Worth Easton
Junho 137550 221.57376 4 1 Metropolitana Easton
Junho 105750 162.39452 3 1 Fort Worth Easton
Junho 158100 185.80609 3 2 Dallas Easton
Junho 125850 175.67966 3 2 Fort Worth Outra Corretora
Junho 119850 129.87845 2 2 Dallas Easton
Junho 111000 152.17519 4 2 Fort Worth Easton
Junho 109950 128.11330 2 2 Dallas Easton
Junho 159600 189.05769 3 3 Dallas Easton
Junho 141900 132.29393 2 3 Dallas Easton
Junho 140550 155.79840 3 3 Dallas Easton
Junho 131100 151.80357 3 3 Dallas Easton
Junho 125400 142.04875 3 3 Dallas Easton
Junho 181500 209.40346 4 4 Dallas Easton
Junho 172800 206.05895 4 4 Dallas Easton
Junho 170250 220.55183 3 4 Dallas Easton
Junho 159300 183.01900 3 4 Dallas Easton
Junho 158550 172.98547 4 4 Dallas Easton
Junho 152550 169.82676 3 4 Dallas Easton
Junho 152400 194.44607 3 4 Dallas Easton
Junho 142500 169.36225 3 4 Dallas Easton
Junho 139200 169.54805 2 4 Dallas Easton
Junho 138150 152.73260 3 4 Dallas Easton
Junho 136350 171.87063 3 4 Dallas Easton
Junho 132750 203.45767 3 4 Metropolitana Outra Corretora
Junho 125850 180.78932 3 4 Metropolitana Outra Corretora
Junho 125550 197.23316 4 4 Fort Worth Easton
Junho 115200 158.86420 4 4 Fort Worth Easton
Junho 113700 141.86295 3 4 Dallas Easton
Junho 113400 122.72492 2 4 Dallas Easton
Junho 102450 164.43839 3 4 Fort Worth Easton
Junho 101400 143.53520 3 4 Fort Worth Outra Corretora
Junho 177450 206.05895 3 5 Dallas Easton
Junho 154950 249.81628 4 5 Metropolitana Easton
Junho 151200 162.20871 3 5 Dallas Easton
Junho 150750 192.95962 3 5 Dallas Easton
Junho 141900 174.28611 4 5 Dallas Easton
Junho 133350 143.99972 3 5 Dallas Easton
Junho 132750 201.87831 4 5 Fort Worth Easton
Junho 129450 195.09639 4 5 Fort Worth Outra Corretora
Junho 128700 193.14543 3 5 Metropolitana Outra Corretora
Junho 115350 165.64613 3 5 Fort Worth Easton
Junho 114750 176.23707 3 5 Metropolitana Outra Corretora
Junho 107700 164.90290 4 5 Fort Worth Easton
Junho 102150 137.31070 2 5 Metropolitana Easton
Junho 167700 196.11832 4 6 Dallas Easton
Junho 166650 192.12349 3 6 Dallas Easton
Junho 150450 223.33892 3 6 Fort Worth Easton
Junho 149850 168.06161 3 6 Dallas Outra Corretora
Junho 138600 170.19838 3 6 Dallas Easton
Junho 134550 157.37776 3 6 Dallas Easton
Junho 132000 143.99972 2 6 Dallas Easton
Junho 131850 147.53003 3 6 Dallas Easton
Junho 130650 203.08605 4 6 Metropolitana Easton
Junho 118350 159.79324 3 6 Fort Worth Easton
Junho 116850 186.82802 4 6 Metropolitana Easton
Junho 114450 182.55448 3 6 Metropolitana Easton
Junho 108450 147.62294 3 6 Fort Worth Easton
Junho 106800 139.63327 3 6 Fort Worth Easton
Junho 106500 129.22813 2 6 Dallas Easton
Junho 103200 159.60743 3 6 Fort Worth Easton
Junho 158400 200.85638 3 7 Dallas Easton
Junho 153000 200.11316 3 7 Dallas Easton
Junho 138750 146.78681 3 7 Dallas Easton
Junho 138150 158.86420 3 7 Dallas Easton
Junho 136800 141.77004 3 7 Dallas Easton
Junho 128400 167.96870 3 7 Fort Worth Easton
Junho 124800 195.74671 3 7 Metropolitana Easton
Junho 123150 136.19586 2 7 Dallas Easton
Junho 122700 187.38544 4 7 Metropolitana Easton
Junho 118500 189.05769 3 7 Fort Worth Easton
Junho 118200 137.96102 2 7 Dallas Outra Corretora
Junho 116850 161.46549 3 7 Fort Worth Outra Corretora
Junho 115950 168.34032 3 7 Fort Worth Easton
Junho 113700 162.30162 3 7 Fort Worth Outra Corretora
Junho 111600 157.00614 3 7 Metropolitana Easton
Junho 110850 160.44356 3 7 Fort Worth Easton
Junho 101550 112.78429 2 7 Dallas Easton
Junho 99000 149.75971 3 7 Fort Worth Easton
Junho 179850 210.98281 4 8 Dallas Easton
Junho 156900 164.15968 3 8 Dallas Easton
Junho 151650 160.07194 3 8 Dallas Easton
Junho 150750 179.30287 3 8 Dallas Easton
Junho 149400 170.56999 3 8 Dallas Easton
Junho 146250 226.49762 4 8 Metropolitana Easton
Junho 144750 168.24741 3 8 Dallas Easton
Junho 139350 212.00475 4 8 Metropolitana Easton
Junho 137250 133.40877 2 8 Dallas Easton
Junho 121800 117.42945 2 8 Dallas Easton
Junho 120450 162.02291 3 8 Fort Worth Easton
Junho 118800 178.46675 3 8 Metropolitana Easton
Junho 110250 149.38809 3 8 Fort Worth Easton
Junho 153750 216.09248 4 9 Fort Worth Easton
Junho 145350 195.18929 3 9 Fort Worth Easton
Junho 140400 163.32355 3 9 Dallas Easton
Junho 127800 182.74029 3 9 Fort Worth Easton
Junho 124350 180.97513 3 9 Fort Worth Outra Corretora
Junho 119250 171.68482 3 9 Fort Worth Outra Corretora
Junho 119100 180.41771 4 9 Fort Worth Outra Corretora
Junho 107250 169.26935 3 9 Metropolitana Easton
Junho 106350 142.04875 3 9 Fort Worth Easton
Junho 135450 187.75705 4 10 Fort Worth Easton
Junho 110400 162.48742 3 10 Fort Worth Easton
Junho 132450 161.55839 3 11 Dallas Easton

Informações Gerais

summary(Easton)
##     Mes          Preco           Tamanho          Quartos     
##  Março:126   Min.   : 99000   Min.   : 99.31   Min.   :2.000  
##  Abril:118   1st Qu.:121800   1st Qu.:154.13   1st Qu.:3.000  
##  Maio :114   Median :138600   Median :169.27   Median :3.000  
##  Junho:103   Mean   :140057   Mean   :173.48   Mean   :3.111  
##              3rd Qu.:157200   3rd Qu.:192.40   3rd Qu.:3.000  
##              Max.   :190650   Max.   :266.82   Max.   :4.000  
##      Idade               Localizacao            Corretora  
##  Min.   : 1.000   Dallas       :217   Easton         :415  
##  1st Qu.: 5.000   Fort Worth   :147   Outra Corretora: 46  
##  Median : 6.000   Metropolitana: 97                        
##  Mean   : 6.139                                            
##  3rd Qu.: 8.000                                            
##  Max.   :13.000
median(Easton$Preco)
## [1] 138600

observa-se que o preço das casas é na faixa de $138.600

median(Easton$Tamanho)
## [1] 169.2693

observa-se que o preço das casas é na faixa de 169.2693m²

So_easton <- subset(Easton,Corretora == "Easton")
summary(So_easton)
##     Mes          Preco           Tamanho          Quartos     
##  Março:115   Min.   : 99000   Min.   : 99.31   Min.   :2.000  
##  Abril:108   1st Qu.:122475   1st Qu.:153.62   1st Qu.:3.000  
##  Maio :103   Median :139950   Median :168.71   Median :3.000  
##  Junho: 89   Mean   :141066   Mean   :173.04   Mean   :3.101  
##              3rd Qu.:157875   3rd Qu.:191.89   3rd Qu.:3.000  
##              Max.   :190650   Max.   :266.82   Max.   :4.000  
##      Idade               Localizacao            Corretora  
##  Min.   : 1.000   Dallas       :210   Easton         :415  
##  1st Qu.: 5.000   Fort Worth   :123   Outra Corretora:  0  
##  Median : 6.000   Metropolitana: 82                        
##  Mean   : 6.137                                            
##  3rd Qu.: 8.000                                            
##  Max.   :13.000

observa-se que o preço das casas é na faixa de $139.950

median(So_easton$Preco)
## [1] 139950
median(So_easton$Tamanho)
## [1] 168.7119

observa-se que o preço das casas é na faixa de 168.7119m²

Primeiro caso

A corretora Easton tem ou não subvalorizado as casas em relação aos seus concorrentes? para melhor análise, segue o gráfico

Boxplot - Corretora x Preço

library(ggplot2)
library(ggthemes)

Easton$Corretora <- as.factor(Easton$Corretora)

ggplot(Easton) +
  aes(x = Corretora, y = Preco) +
  geom_boxplot(fill = "#74c476") +
  labs(x = "Corretora", y = "Preço", title = "Preço por Corretora", subtitle = "quanti x quali ") +
  theme_minimal()

Análise do primeiro caso

Como podemos observar com ajuda do boxplot, a respota para a pergunta é NÃO, a corretora Easton não tem subvalorizado as suas casa, logo a suposição de que os funcionários estariam fraudando o processo de venda é falsa. Nota-se que a corretora Easton compete de forma justa com o mercado, possuindo até mesmo, preços mais elevados do que as outras corretores, se mantendo coerente com o preço de mercado e valorizando os seus clientes, ao contrário das outras imobiliárias, a Easton não possui um outlier, ou seja, uma oscilação de grande proporção em seus preços. Podemos notar que no relatório geral mostrado mais a cima, que os preços máximos e mínimos possuem uma discrepância de $91.650 entre eles, discrepância ocorrido por conta das outras corretoras.

Segundo Caso

Os clientes da corretora Easton estão acusando a corretora de ter subvalorizado as casas de Arlington e Fort Worth com relação ao mercado, ou seja, com relação as outras casa vendidas por outros corretores de imóveis: As casas em questão são.

  • Casa 1: Arlington 203m² $88.500 (4 anos)
  • Casa 2: Fort Worth 172m² $79.500 (9 anos)

Coeficiente de relação Tamanho x Preço na região Metropolitana Arlington - casa 1 - Corretora Easton

Metropolitana <- subset(Easton,Localizacao == "Metropolitana")
Metropolitana_Easton <- subset(Metropolitana,Corretora == "Easton")
cor(Metropolitana_Easton$Preco,Metropolitana_Easton$Tamanho)
## [1] 0.8602291
plot(Metropolitana_Easton$Preco~Metropolitana_Easton$Tamanho, main = "Coeficiente da corretora Easton em Arlington",col = "salmon", xlab = "Tamanho", ylab = "Preço")

Coeficiente de relação Tamanho x Preço na região de Fort Worth - casa 2 - Corretora Easton

Fort_worth <- subset(So_easton,Localizacao == "Fort Worth")
cor(Fort_worth$Preco,Fort_worth$Tamanho)
## [1] 0.8959756
plot(Fort_worth$Preco~Fort_worth$Tamanho, main = "Coeficiente da corretora Easton em Fort Worth",col = "green", xlab = "Tamanho", ylab = "Preço")

Coeficiente das Outras Corretoras Tamanho x Preço na região Metropolitana Arlington - casa 1

Metropolitana_outras_corretoras <- subset(Metropolitana,Corretora == "Outra Corretora")
cor(Metropolitana_outras_corretoras$Preco,Metropolitana_outras_corretoras$Tamanho)
## [1] 0.9120221
plot(Metropolitana_outras_corretoras$Preco~Metropolitana_outras_corretoras$Tamanho, main = "Coeficiente de outras corretoras em Arlington",col = "salmon", xlab = "Tamanho", ylab = "Preço")

Coeficiente das Outras Corretoras Tamanho x Preço de Fort Worth - casa 2

outra_corretora <- subset(Easton,Corretora == "Outra Corretora")
Fort_worth_outras <- subset(outra_corretora,Localizacao == "Fort Worth")
cor(Fort_worth_outras$Preco,Fort_worth_outras$Tamanho)
## [1] 0.8553288
plot(Fort_worth_outras$Preco~Fort_worth_outras$Tamanho, main = "Coeficiente de outras em Fort Worth",col = "green", xlab = "Tamanho", ylab = "Preço")

Boxplot Localização x Preço

Geral, ambas, visão ampla.

ggplot(Easton) +
 aes(x = Localizacao, y = Preco) +
 geom_boxplot(fill = "#d18975") +
 theme_minimal()

Boxplot da Região metropolitana da corretora Easton/ Localização x Preço

boxplot(Metropolitana_Easton$Preco~Metropolitana_Easton$Localizacao, col = "salmon") 

Boxplot da Região metropolitana de outras corretoras/ Localização x Preço

boxplot(Metropolitana_outras_corretoras$Preco~Metropolitana_outras_corretoras$Localizacao, col = "salmon3") 

Boxplot de Fort Worth da corretora Easton/ Localização x Preço

boxplot(Fort_worth$Preco~Fort_worth$Localizacao, col = "green")

Boxplot de Fort Worth de outras corretoras/ Localização x Preço

boxplot(Fort_worth_outras$Preco~Fort_worth_outras$Localizacao, col = "green3")

Análise do caso 2

Olhando pela perspectiva de tamanho x preço, observa-se pelo gráfico de dispersão apresentado a cima, que os imóveis foram sim subvalorizados pela corretora Easton, apesar de ter uma boa reputação apresentada no caso 1, no caso 2 não é o que acontece, a corretora deveria ter vendido a casa em Arlington (Metropolitana) por mais de $120.000 e a casa em Fort Worth po mais de $100.000, dessa forma, ela seguiria seu padrão apresentado no gráfico e nos coeficientes, outra problemática é que a corretora possui preços menores do que as outras corretoras, quando comparados os gráficos, percebe-se que as outras corretoras vendem $10.000 a mais do que a Easton, afirmando ainda mais a acusação de subvalorização das casas em questão.
Agora, olhando pela ótica Localização x Preço, observa-se que, no geral, as casas em Fort Worth custam mais do que em Arlington (Metropolitana) e menos que em Dallas. Visualizando de forma separada, nota-se que, o preço médio das casas pela corretora Easton em Arlington estão abaixo do preço de outras corretoras, o mesmo caso acontece em Fort Worth, de maneira mais gritante.
Definitivamente os preços não são coerentes com a Localização e nem com o Tamanho das casas, o que parece até contraditório, porque a Easton foi defendida no caso 1, quando olhamos de uma maneira mais geral, mas quando fomos para o particular, o caso não se repete, deixando a Easton com uma má reputação, já que uma propaganda negativa fica muito mais popular do que uma positiva.