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]
##
## Dean Lovberg Douglas Mitten Gary Hooge - PREC
## 0.02111932 0.01478353 0.04118268
## Joanne Bonetti Leo Ronse Nav Sekhon - PREC
## 0.01583949 0.03062302 0.01795143
## Ryan MacDonald Tracey Bosch - PREC Tyler Schacter - PREC
## 0.07497360 0.05702218 0.01055966
## Will Rempel
## 0.03062302
sum(data2[data2>.01])
## [1] 0.3146779
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]
##
## Amy Brattebo - PREC Dean Lovberg Gary Hooge - PREC
## 0.01041667 0.01432292 0.04557292
## Joanne Bonetti Leo Ronse Nav Sekhon - PREC
## 0.01692708 0.02994792 0.01041667
## Ryan MacDonald Tracey Bosch - PREC Tyler Schacter - PREC
## 0.08333333 0.05338542 0.01302083
## Will Rempel
## 0.03645833
sum(data3[data3>.01])
## [1] 0.3138021
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]
##
## Daljinder Aujla Dan Flokstra Dave Jarvis - PREC
## 0.01117318 0.02234637 0.01117318
## Dean Lovberg Don Munro - PREC Douglas Mitten
## 0.05027933 0.01117318 0.05027933
## Eleanor Wrigley - PREC Emma Stewart Gary Hooge - PREC
## 0.01117318 0.01675978 0.02234637
## Jan De Ruiter Jean Chai - PREC Joan Hansen
## 0.01117318 0.02234637 0.03351955
## Joanne Bonetti Karen Ralph Karen Yang PREC*
## 0.01117318 0.01117318 0.01117318
## Leo Ronse Nav Sekhon - PREC Patricia Le Blanc
## 0.03351955 0.05027933 0.01117318
## Peter Hu - PREC Raymond Lu PREC* Ryan MacDonald
## 0.01117318 0.01117318 0.03910615
## Susan T Robb Tamara Baltic - PREC Tiffany Wilson
## 0.01117318 0.01117318 0.01117318
## Tracey Bosch - PREC Yang Kang
## 0.07262570 0.01675978
sum(data4[data4>.01])
## [1] 0.5865922
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]
##
## Amy Brattebo - PREC Danny Evans Dean Lovberg
## 0.01231190 0.01094391 0.02599179
## Douglas Mitten Gary Hooge - PREC Joan Hansen
## 0.01641587 0.04514364 0.01094391
## Joanne Bonetti Leo Ronse Nav Sekhon - PREC
## 0.01504788 0.03009576 0.02051984
## Ryan MacDonald Tracey Bosch - PREC Tyler Schacter - PREC
## 0.02325581 0.05745554 0.01231190
## Will Rempel
## 0.02872777
sum(data5[data5>.01])
## [1] 0.3091655
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]
##
## Danny Evans Darren Leffers - PREC Dean Lovberg
## 0.01456311 0.01213592 0.02184466
## Douglas Mitten Emma Stewart Gary Hooge - PREC
## 0.01213592 0.01213592 0.05825243
## Hollie de Boer - PREC Joan Hansen Joanne Bonetti
## 0.01213592 0.01456311 0.01941748
## Leo Ronse Nav Sekhon - PREC Sherry Saran - PREC
## 0.02912621 0.02427184 0.01213592
## Tamara Baltic - PREC Tracey Bosch - PREC Tyler Schacter - PREC
## 0.01213592 0.06067961 0.01456311
## Wells Macey Will Rempel
## 0.01456311 0.02669903
sum(data6[data6>.01])
## [1] 0.3713592
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]
##
## Darren Leffers - PREC Darren St. Laurent Eleanor Wrigley - PREC
## 0.01351351 0.01351351 0.01351351
## Gabe Kadoranian Gary Hooge - PREC Jatinder Khangura
## 0.01351351 0.03378378 0.01351351
## Joanne Bonetti Leo Ronse Marshell Forster PREC*
## 0.01351351 0.01351351 0.01351351
## Nick Costantino Nicole Lee Rajin Gill - PREC
## 0.01351351 0.01351351 0.01351351
## Scott Strudwick - PREC Shelly Lederer - PREC Sherman Foster
## 0.01351351 0.01351351 0.02027027
## Sherry Saran - PREC Tracey Bosch - PREC Tracy Charlton
## 0.03378378 0.07432432 0.01351351
## Tyler Schacter - PREC Wells Macey Will Rempel
## 0.01351351 0.01351351 0.02702703
sum(data7[data7>.01])
## [1] 0.4054054