Listings Since May 3rd 2015
data2 = filter(data, `List Date` > "2011-04-28")
data2 = prop.table(table(data2$`List Desig Agt 1 - Agent Name`))
data2[data2>.01]
##
## Brad Herzke Bruno Bezjak - PREC Eleanor Wrigley - PREC
## 0.01111111 0.01319444 0.01111111
## Gary Hooge - PREC Karen Ralph Leo Ronse
## 0.02986111 0.01111111 0.07638889
## Steve Klassen - PREC Tammy Evans - PREC Tracey Bosch - PREC
## 0.01527778 0.01458333 0.05555556
sum(data2[data2>.01])
## [1] 0.2381944
Sales Since May 3rd 2015
data3 = filter(data, `List Date` > "2011-04-28")
data3 = filter(data3, Status == "S")
data3 = prop.table(table(data3$`List Desig Agt 1 - Agent Name`))
data3[data3>.01]
##
## Brad Herzke Bruno Bezjak - PREC Douglas Mitten
## 0.01247920 0.01580699 0.01081531
## Eleanor Wrigley - PREC Gary Hooge - PREC Leo Ronse
## 0.01164725 0.03161398 0.07487521
## Steve Klassen - PREC Tammy Evans - PREC Tracey Bosch - PREC
## 0.01830283 0.01414309 0.04825291
sum(data3[data3>.01])
## [1] 0.2379368
Expiries Since May 3rd 2015
data4 = filter(data, `List Date` > "2011-04-28")
data4 = filter(data4, Status == "X")
data4 = prop.table(table(data4$`List Desig Agt 1 - Agent Name`))
data4[data4>.01]
##
## Andreas Yuan - PREC Anshu Arora Bianca Myddleton - PREC
## 0.01260504 0.01260504 0.02100840
## Garry Reimer - PREC Garth Olson Gary Hooge - PREC
## 0.02521008 0.01680672 0.02100840
## Jared Gibbons - PREC Karen Ralph Kuldip Aujla - PREC
## 0.01260504 0.02100840 0.01260504
## Leo Ronse Raj Gill - PREC Ray Lewis - PREC
## 0.08403361 0.01260504 0.01260504
## Robert Blair Roy Pereira Sarina Han PREC*
## 0.01260504 0.01260504 0.03781513
## Shawn Smith - PREC Spencer DeBoice Tammy Evans - PREC
## 0.01260504 0.01260504 0.01680672
## Tracey Bosch - PREC Will Rempel
## 0.09243697 0.01680672
sum(data4[data4>.01])
## [1] 0.4789916
Listings Since May 3rd 2016
data5 = filter(data, `List Date` > "2016-05-03")
data5 = prop.table(table(data5$`List Desig Agt 1 - Agent Name`))
data5[data5>.01]
##
## Brad Herzke Bruno Bezjak - PREC Gary Hooge - PREC
## 0.01408451 0.01144366 0.02904930
## Leo Ronse Steve Klassen - PREC Tammy Evans - PREC
## 0.07130282 0.01584507 0.01584507
## Tracey Bosch - PREC
## 0.05105634
sum(data5[data5>.01])
## [1] 0.2086268
Listings Since May 3rd 2018
data6 = filter(data, `List Date` > "2018-05-03")
data6 = prop.table(table(data6$`List Desig Agt 1 - Agent Name`))
data6[data6>.01]
##
## Brad Herzke Douglas Mitten Eleanor Wrigley - PREC
## 0.01508296 0.01206637 0.01206637
## Garry Reimer - PREC Gary Hooge - PREC Jared Gibbons - PREC
## 0.01357466 0.01960784 0.01055807
## Leo Ronse PJ Cheema Scott Strudwick - PREC
## 0.06485671 0.01206637 0.01055807
## Steve Klassen - PREC Tammy Evans - PREC Tracey Bosch - PREC
## 0.01357466 0.01960784 0.04374057
sum(data6[data6>.01])
## [1] 0.2473605
Listings Since May 3rd 2020
data7 = filter(data, `List Date` > "2020-05-03")
data7 = prop.table(table(data7$`List Desig Agt 1 - Agent Name`))
data7[data7>.01]
##
## Brad Herzke Bruno Bezjak - PREC Garry Reimer - PREC
## 0.02380952 0.01360544 0.01020408
## Gary Hooge - PREC Ishwinder Ghag - PREC Leo Ronse
## 0.01360544 0.01360544 0.03061224
## Lori Prince PJ Cheema Rob Visnjak - PREC
## 0.01020408 0.02040816 0.01020408
## Scott Strudwick - PREC Steve Klassen - PREC Tammy Evans - PREC
## 0.02380952 0.01360544 0.01700680
## Tracey Bosch - PREC
## 0.02721088
sum(data7[data7>.01])
## [1] 0.2278912