#' subsets the yearly surveys by city of residence, v 3.4
#' defaults to arg = "cities"
#' replace plyr::subset() with dplyr::filter()
#' @param arg nil
#' @family manipulate
#' @keywords city, subset, region, size, column
#' @export subsetCities
#' @examples
#' subsetCities()
#' subsetCities("writeOut")
#' subsetCities("make1")
#' subsetCities("make2")
#' subsetCities("make3")
#' subsetCities("addregion")
#' subsetCities("writeOutRegions")
#' subsetCities("saved")
subsetCities <- function(arg = "saved") {
if(arg == "make1"){
library("dplyr")
## exports these dataframes to the global environment
## cityList <- 99
## survey2004 table of people surveyed by city and year
## ownerCounts <- 99
## ownersList <- 99
## ownersYYYY <- 99
## renterCounts <- 99
## rentersList <- 99
## rentersYYYY <- 99
## jerusalemYYYY <- 99
## renter /owner
## > levels(familiesList[[1]]$RENT)
## [1] "Irrelevant" "Yes" "No"
renters2004 <<- dplyr::filter( familiesList[[1]], RENT == "Yes")
# head(renters2004) #check
renters2005 <<- dplyr::filter( familiesList[[2]], RENT == "Yes")
renters2006 <<- dplyr::filter( familiesList[[3]], RENT == "Yes")
renters2007 <<- dplyr::filter( familiesList[[4]], RENT == "Yes")
renters2008 <<- dplyr::filter( familiesList[[5]], RENT == "Yes")
renters2009 <<- dplyr::filter( familiesList[[6]], RENT == "Yes")
renters2010 <<- dplyr::filter( familiesList[[7]], RENT == "Yes")
renters2011 <<- dplyr::filter( familiesList[[8]], RENT == "Yes")
renters2012 <<- dplyr::filter( familiesList[[9]], RENT == "Yes")
renters2013 <<- dplyr::filter( familiesList[[10]], RENT == "Yes")
renters2014 <<- dplyr::filter( familiesList[[11]], RENT == "Yes")
rentersList <<- as.data.frame(c(
renters2004,
renters2005,
renters2006,
renters2007,
renters2008,
renters2009,
renters2010,
renters2011,
renters2012,
renters2013,
renters2014))
owners2004 <<- dplyr::filter( familiesList[[1]], OWNER == "Yes")
# head(owners2004) #check
owners2005 <<- dplyr::filter( familiesList[[2]], OWNER == "Yes")
owners2006 <<- dplyr::filter( familiesList[[3]], OWNER == "Yes")
owners2007 <<- dplyr::filter( familiesList[[4]], OWNER == "Yes")
owners2008 <<- dplyr::filter( familiesList[[5]], OWNER == "Yes")
owners2009 <<- dplyr::filter( familiesList[[6]], OWNER == "Yes")
owners2010 <<- dplyr::filter( familiesList[[7]], OWNER == "Yes")
owners2011 <<- dplyr::filter( familiesList[[8]], OWNER == "Yes")
owners2012 <<- dplyr::filter( familiesList[[9]], OWNER == "Yes")
owners2013 <<- dplyr::filter( familiesList[[10]], OWNER == "Yes")
owners2014 <<- dplyr::filter( familiesList[[11]], OWNER == "Yes")
ownersList <<- c(
owners2004,
owners2005,
owners2006,
owners2007,
owners2008,
owners2009,
owners2010,
owners2011,
owners2012,
owners2013,
owners2014)
countOwners <- c(
owners2004 %>% nrow,
owners2005 %>% nrow,
owners2006 %>% nrow,
owners2007 %>% nrow,
owners2008 %>% nrow,
owners2009 %>% nrow,
owners2010 %>% nrow,
owners2011 %>% nrow,
owners2012 %>% nrow,
owners2013 %>% nrow,
owners2014 %>% nrow)
countRenters <- c(
renters2004 %>% nrow,
renters2005 %>% nrow,
renters2006 %>% nrow,
renters2007 %>% nrow,
renters2008 %>% nrow,
renters2009 %>% nrow,
renters2010 %>% nrow,
renters2011 %>% nrow,
renters2012 %>% nrow,
renters2013 %>% nrow,
renters2014 %>% nrow)
renterCounts <<- c(
renters2004 %>% nrow,
renters2005 %>% nrow,
renters2006 %>% nrow,
renters2007 %>% nrow,
renters2008 %>% nrow,
renters2009 %>% nrow,
renters2010 %>% nrow,
renters2011 %>% nrow,
renters2012 %>% nrow,
renters2013 %>% nrow,
renters2014 %>% nrow)
ownerCounts <<- c(
owners2004 %>% nrow,
owners2005 %>% nrow,
owners2006 %>% nrow,
owners2007 %>% nrow,
owners2008 %>% nrow,
owners2009 %>% nrow,
owners2010 %>% nrow,
owners2011 %>% nrow,
owners2012 %>% nrow,
owners2013 %>% nrow,
owners2014 %>% nrow)
## cities by year
## df family2014 is available under maxReproducible(1)
## needs to be available under maxReproducible(2)
jerusalem2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Jerusalem")
Ashdod2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Ashdod")
Haifa2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Haifa")
Herzliyya2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Herzliyya")
Holon2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Holon")
Lod2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Lod")
Hadera2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Hadera")
Ashqelon2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Ashqelon")
Nettanya2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Nettanya")
Rehovot2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Rehovot")
Ramla2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Ramla")
Raannana2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Raannana")
tlv2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Tel Aviv-Yafo")
bene2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Bene Beraq")
bat2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Bat Yam")
kefar2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Kefar Sava")
petah2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Petah Tiqwa")
rishon2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Rishon LeZiyon")
ramat2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Ramat Gan")
beer2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Beer Sheva")
modiin2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Modi'in")
betshemesh2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Bet Shemesh")
nahariyya2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Nahariyya")
qiryatatta2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Qiryat Atta")
givatayim2004 <<- dplyr::filter( familiesList[[1]], CODELOC =="Giv'atayim")
jerusalem2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Jerusalem")
Ashdod2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Ashdod")
Haifa2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Haifa")
Herzliyya2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Herzliyya")
Holon2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Holon")
Lod2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Lod")
Hadera2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Hadera")
Ashqelon2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Ashqelon")
Nettanya2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Nettanya")
Rehovot2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Rehovot")
Ramla2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Ramla")
Raannana2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Raannana")
tlv2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Tel Aviv-Yafo")
bene2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Bene Beraq")
bat2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Bat Yam")
kefar2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Kefar Sava")
petah2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Petah Tiqwa")
rishon2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Rishon LeZiyon")
ramat2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Ramat Gan")
beer2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Beer Sheva")
modiin2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Modi'in")
betshemesh2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Bet Shemesh")
nahariyya2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Nahariyya")
qiryatatta2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Qiryat Atta")
givatayim2005 <<- dplyr::filter( familiesList[[2]], CODELOC =="Giv'atayim")
jerusalem2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Jerusalem")
Ashdod2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Ashdod")
Haifa2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Haifa")
Herzliyya2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Herzliyya")
Holon2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Holon")
Lod2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Lod")
Hadera2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Hadera")
Ashqelon2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Ashqelon")
Nettanya2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Nettanya")
Rehovot2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Rehovot")
Ramla2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Ramla")
Raannana2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Raannana")
tlv2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Tel Aviv-Yafo")
bene2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Bene Beraq")
bat2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Bat Yam")
kefar2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Kefar Sava")
petah2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Petah Tiqwa")
rishon2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Rishon LeZiyon")
ramat2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Ramat Gan")
beer2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Beer Sheva")
modiin2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Modi'in")
betshemesh2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Bet Shemesh")
nahariyya2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Nahariyya")
qiryatatta2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Qiryat Atta")
givatayim2006 <<- dplyr::filter( familiesList[[3]], CODELOC =="Giv'atayim")
jerusalem2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Jerusalem")
Ashdod2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Ashdod")
Haifa2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Haifa")
Herzliyya2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Herzliyya")
Holon2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Holon")
Lod2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Lod")
Hadera2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Hadera")
Ashqelon2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Ashkelon")
Nettanya2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Netanya")
Rehovot2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Rehovot")
Ramla2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Ramla")
Raannana2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Raannana")
tlv2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Tel Aviv-Yaffo")
bene2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Bene Beraq")
bat2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Bat Yam")
kefar2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Kefar Sava")
petah2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Petah Tiqwa")
rishon2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Rishon LeZiyon")
ramat2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Ramat Gan")
beer2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Beer Sheva")
modiin2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Modi'in")
betshemesh2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Bet Shemesh")
nahariyya2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Nahariyya")
qiryatatta2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Qiryat Atta")
givatayim2007 <<- dplyr::filter( familiesList[[4]], CODELOC =="Giv'atayim")
jerusalem2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Jerusalem")
Ashdod2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Ashdod")
Haifa2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Haifa")
Herzliyya2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Herzliyya")
Holon2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Holon")
Lod2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Lod")
Hadera2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Hadera")
Ashqelon2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Ashkelon")
Nettanya2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Netanya")
Rehovot2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Rehovot")
Ramla2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Ramla")
Raannana2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Raannana")
tlv2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Tel Aviv-Yaffo")
bene2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Bene Beraq")
bat2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Bat Yam")
kefar2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Kefar Sava")
petah2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Petah Tiqwa")
rishon2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Rishon LeZiyon")
ramat2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Ramat Gan")
beer2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Beer Sheva")
modiin2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Modi'in")
betshemesh2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Bet Shemesh")
nahariyya2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Nahariyya")
qiryatatta2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Qiryat Atta")
givatayim2008 <<- dplyr::filter( familiesList[[5]], CODELOC =="Giv'atayim")
jerusalem2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Jerusalem")
Ashdod2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Ashdod")
Haifa2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Haifa")
Herzliyya2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Herzliyya")
Holon2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Holon")
Lod2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Lod")
Hadera2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Hadera")
Ashqelon2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Ashkelon")
Nettanya2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Netanya")
Rehovot2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Rehovot")
Ramla2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Ramla")
Raannana2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Raannana")
tlv2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Tel Aviv-Yaffo")
bene2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Bene Beraq")
bat2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Bat Yam")
kefar2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Kefar Sava")
petah2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Petah Tiqwa")
rishon2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Rishon LeZiyon")
ramat2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Ramat Gan")
beer2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Beer Sheva")
modiin2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Modi'in")
betshemesh2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Bet Shemesh")
nahariyya2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Nahariyya")
qiryatatta2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Qiryat Atta")
givatayim2009 <<- dplyr::filter( familiesList[[6]], CODELOC =="Giv'atayim")
jerusalem2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Jerusalem")
Ashdod2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Ashdod")
Haifa2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Haifa")
Herzliyya2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Herzliyya")
Holon2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Holon")
Lod2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Lod")
Hadera2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Hadera")
Ashqelon2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Ashkelon")
Nettanya2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Netanya")
Rehovot2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Rehovot")
Ramla2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Ramla")
Raannana2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Raannana")
tlv2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Tel Aviv-Yaffo")
bene2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Bene Beraq")
bat2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Bat Yam")
kefar2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Kefar Sava")
petah2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Petah Tiqwa")
rishon2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Rishon LeZiyon")
ramat2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Ramat Gan")
beer2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Beer Sheva")
modiin2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Modi'in")
betshemesh2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Bet Shemesh")
nahariyya2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Nahariyya")
qiryatatta2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Qiryat Atta")
givatayim2010 <<- dplyr::filter( familiesList[[7]], CODELOC =="Giv'atayim")
jerusalem2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Jerusalem")
Ashdod2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Ashdod")
Haifa2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Haifa")
Herzliyya2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Herzliyya")
Holon2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Holon")
Lod2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Lod")
Hadera2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Hadera")
Ashqelon2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Ashkelon")
Nettanya2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Netanya")
Rehovot2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Rehovot")
Ramla2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Ramla")
Raannana2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Raannana")
tlv2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Tel Aviv-Yaffo")
bene2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Bene Beraq")
bat2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Bat Yam")
kefar2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Kefar Sava")
petah2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Petah Tiqwa")
rishon2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Rishon LeZiyon")
ramat2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Ramat Gan")
beer2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Beer Sheva")
modiin2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Modi'in")
betshemesh2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Bet Shemesh")
nahariyya2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Nahariyya")
qiryatatta2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Qiryat Atta")
givatayim2011 <<- dplyr::filter( familiesList[[8]], CODELOC =="Giv'atayim")
jerusalem2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Jerusalem")
Ashdod2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Ashdod")
Haifa2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Haifa")
Herzliyya2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Herzliyya")
Holon2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Holon")
Lod2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Lod")
Hadera2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Hadera")
Ashqelon2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Ashkelon")
Nettanya2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Netanya")
Rehovot2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Rehovot")
Ramla2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Ramla")
Raannana2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Raannana")
tlv2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Tel Aviv-Yaffo")
bene2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Bene Beraq")
bat2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Bat Yam")
kefar2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Kefar Sava")
petah2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Petah Tiqwa")
rishon2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Rishon LeZiyon")
ramat2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Ramat Gan")
beer2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Beer Sheva")
modiin2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Modi'in")
betshemesh2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Bet Shemesh")
nahariyya2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Nahariyya")
qiryatatta2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Qiryat Atta")
givatayim2012 <<- dplyr::filter( familiesList[[9]], CODELOC =="Giv'atayim")
jerusalem2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Jerusalem")
Ashdod2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Ashdod")
Haifa2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Haifa")
Herzliyya2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Herzliyya")
Holon2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Holon")
Lod2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Lod")
Hadera2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Hadera")
Ashqelon2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Ashkelon")
Nettanya2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Netanya")
Rehovot2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Rehovot")
Ramla2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Ramla")
Raannana2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Raannana")
tlv2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Tel Aviv-Yaffo")
bene2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Bene Beraq")
bat2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Bat Yam")
kefar2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Kefar Sava")
petah2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Petah Tiqwa")
rishon2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Rishon LeZiyon")
ramat2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Ramat Gan")
beer2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Beer Sheva")
modiin2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Modi'in")
betshemesh2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Bet Shemesh")
nahariyya2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Nahariyya")
qiryatatta2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Qiryat Atta")
givatayim2013 <<- dplyr::filter( familiesList[[10]], CODELOC =="Giv'atayim")
jerusalem2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Jerusalem")
Ashdod2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Ashdod")
Haifa2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Haifa")
Herzliyya2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Herzliyya")
Holon2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Holon")
Lod2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Lod")
Hadera2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Hadera")
Ashqelon2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Ashkelon")
Nettanya2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Netanya")
Rehovot2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Rehovot")
Ramla2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Ramla")
Raannana2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Raannana")
tlv2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Tel Aviv-Yaffo")
bene2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Bene Beraq")
bat2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Bat Yam")
kefar2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Kefar Sava")
petah2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Petah Tiqwa")
rishon2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Rishon LeZiyon")
ramat2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Ramat Gan")
beer2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Beer Sheva")
modiin2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Modi'in")
betshemesh2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Bet Shemesh")
nahariyya2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Nahariyya")
qiryatatta2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Qiryat Ata")
givatayim2014 <<- dplyr::filter( familiesList[[11]], CODELOC =="Giv'atayim")
}else if(arg == "cities"){
## counts in cities
cities <- as.character(levels(familiesList[[11]]$CODELOC))
# cities <- as.character(levels(renters2004$codeloc))
cityList <<- cities[-1]
cityOrder <<- c(
cityList[4],
cityList[1],
cityList[5],
cityList[10],
cityList[12],
cityList[15],
cityList[11],
cityList[16],
cityList[17],
cityList[20],
cityList[21],
cityList[23],
cityList[6],
cityList[7],
cityList[8],
cityList[14],
cityList[18],
cityList[19],
cityList[22],
cityList[24],
cityList[2],
cityList[3],
cityList[25],
cityList[13],
cityList[9]
)
}else if(arg == "make3"){
renters2004 <- dplyr::filter( fam2004, RENT == "Yes")
# head(renters2004) #check
renters2005 <- dplyr::filter( fam2005, RENT == "Yes")
renters2006 <- dplyr::filter( fam2006, RENT == "Yes")
renters2007 <- dplyr::filter( fam2007, RENT == "Yes")
renters2008 <- dplyr::filter( fam2008, RENT == "Yes")
renters2009 <- dplyr::filter( fam2009, RENT == "Yes")
renters2010 <- dplyr::filter( fam2010, RENT == "Yes")
renters2011 <- dplyr::filter( fam2011, RENT == "Yes")
renters2012 <- dplyr::filter( fam2012, RENT == "Yes")
renters2013 <- dplyr::filter( fam2013, RENT == "Yes")
renters2014 <- dplyr::filter( fam2014, RENT == "Yes")
rentersList <<- c(
renters2004,
renters2005,
renters2006,
renters2007,
renters2008,
renters2009,
renters2010,
renters2011,
renters2012,
renters2013,
renters2014)
owners2004 <- dplyr::filter( fam2004, OWNER == "Yes")
# head(owners2004) #check
owners2005 <- dplyr::filter( fam2005, OWNER == "Yes")
owners2006 <- dplyr::filter( fam2006, OWNER == "Yes")
owners2007 <- dplyr::filter( fam2007, OWNER == "Yes")
owners2008 <- dplyr::filter( fam2008, OWNER == "Yes")
owners2009 <- dplyr::filter( fam2009, OWNER == "Yes")
owners2010 <- dplyr::filter( fam2010, OWNER == "Yes")
owners2011 <- dplyr::filter( fam2011, OWNER == "Yes")
owners2012 <- dplyr::filter( fam2012, OWNER == "Yes")
owners2013 <- dplyr::filter( fam2013, OWNER == "Yes")
owners2014 <- dplyr::filter( fam2014, OWNER == "Yes")
ownersList <<- c(
owners2004,
owners2005,
owners2006,
owners2007,
owners2008,
owners2009,
owners2010,
owners2011,
owners2012,
owners2013,
owners2014)
return("split families into owners and renters v. Aug6-2017")
}else if(arg == "make2"){
cities2004 <<- c(
jerusalem2004,
Ashdod2004,
Haifa2004,
Herzliyya2004,
Holon2004,
Lod2004,
Hadera2004,
Ashqelon2004,
Nettanya2004,
Rehovot2004,
Ramla2004,
Raannana2004,
tlv2004,
bene2004,
bat2004,
kefar2004,
petah2004,
rishon2004,
ramat2004,
beer2004,
modiin2004,
betshemesh2004,
nahariyya2004,
qiryatatta2004,
givatayim2004)
cities2005 <<- c(
jerusalem2005,
Ashdod2005,
Haifa2005,
Herzliyya2005,
Holon2005,
Lod2005,
Hadera2005,
Ashqelon2005,
Nettanya2005,
Rehovot2005,
Ramla2005,
Raannana2005,
tlv2005,
bene2005,
bat2005,
kefar2005,
petah2005,
rishon2005,
ramat2005,
beer2005,
modiin2005,
betshemesh2005,
nahariyya2005,
qiryatatta2005,
givatayim2005)
cities2006 <<- c(
jerusalem2006,
Ashdod2006,
Haifa2006,
Herzliyya2006,
Holon2006,
Lod2006,
Hadera2006,
Ashqelon2006,
Nettanya2006,
Rehovot2006,
Ramla2006,
Raannana2006,
tlv2006,
bene2006,
bat2006,
kefar2006,
petah2006,
rishon2006,
ramat2006,
beer2006,
modiin2006,
betshemesh2006,
nahariyya2006,
qiryatatta2006,
givatayim2006)
cities2007 <<- c(
jerusalem2007,
Ashdod2007 ,
Haifa2007 ,
Herzliyya2007 ,
Holon2007 ,
Lod2007 ,
Hadera2007,
Ashqelon2007,
Nettanya2007,
Rehovot2007 ,
Ramla2007 ,
Raannana2007,
tlv2007 ,
bene2007 ,
bat2007 ,
kefar2007,
petah2007 ,
rishon2007,
ramat2007,
beer2007,
modiin2007,
betshemesh2007,
nahariyya2007,
qiryatatta2007,
givatayim2007)
cities2008 <<- c(
jerusalem2008,
Ashdod2008,
Haifa2008,
Herzliyya2008,
Holon2008,
Lod2008,
Hadera2008,
Ashqelon2008,
Nettanya2008,
Rehovot2008,
Ramla2008,
Raannana2008,
tlv2008,
bene2008,
bat2008,
kefar2008,
petah2008,
rishon2008,
ramat2008,
beer2008,
modiin2008,
betshemesh2008,
nahariyya2008,
qiryatatta2008,
givatayim2008)
cities2009 <<- c(
jerusalem2009,
Ashdod2009,
Haifa2009,
Herzliyya2009,
Holon2009,
Lod2009,
Hadera2009,
Ashqelon2009,
Nettanya2009,
Rehovot2009,
Ramla2009,
Raannana2009,
tlv2009,
bene2009,
bat2009,
kefar2009,
petah2009,
rishon2009,
ramat2009,
beer2009,
modiin2009,
betshemesh2009,
nahariyya2009,
qiryatatta2009,
givatayim2009)
cities2010 <<- c(
jerusalem2010,
Ashdod2010,
Haifa2010,
Herzliyya2010,
Holon2010,
Lod2010,
Hadera2010,
Ashqelon2010,
Nettanya2010,
Rehovot2010,
Ramla2010,
Raannana2010,
tlv2010,
bene2010,
bat2010,
kefar2010,
petah2010,
rishon2010,
ramat2010,
beer2010,
modiin2010,
betshemesh2010,
nahariyya2010,
qiryatatta2010,
givatayim2010)
cities2011 <<- c(
jerusalem2011,
Ashdod2011,
Haifa2011,
Herzliyya2011 ,
Holon2011,
Lod2011,
Hadera2011,
Ashqelon2011,
Nettanya2011,
Rehovot2011,
Ramla2011,
Raannana2011,
tlv2011,
bene2011,
bat2011,
kefar2011,
petah2011,
rishon2011,
ramat2011,
beer2011,
modiin2011,
betshemesh2011,
nahariyya2011,
qiryatatta2011,
givatayim2011)
cities2012 <<- c(
jerusalem2012,
Ashdod2012,
Haifa2012,
Herzliyya2012,
Holon2012,
Lod2012,
Hadera2012,
Ashqelon2012,
Nettanya2012,
Rehovot2012,
Ramla2012,
Raannana2012,
tlv2012,
bene2012,
bat2012,
kefar2012,
petah2012,
rishon2012,
ramat2012,
beer2012,
modiin2012,
betshemesh2012,
nahariyya2012,
qiryatatta2012,
givatayim2012)
cities2013 <<- c(
jerusalem2013,
Ashdod2013,
Haifa2013,
Herzliyya2013,
Holon2013,
Lod2013,
Hadera2013,
Ashqelon2013,
Nettanya2013,
Rehovot2013 ,
Ramla2013,
Raannana2013,
tlv2013,
bene2013,
bat2013,
kefar2013,
petah2013,
rishon2013,
ramat2013,
beer2013,
modiin2013,
betshemesh2013,
nahariyya2013,
qiryatatta2013,
givatayim2013)
cities2014 <<- c(
jerusalem2014,
Ashdod2014,
Haifa2014,
Herzliyya2014,
Holon2014,
Lod2014,
Hadera2014,
Ashqelon2014,
Nettanya2014,
Rehovot2014,
Ramla2014,
Raannana2014,
tlv2014,
bene2014,
bat2014,
kefar2014,
petah2014,
rishon2014,
ramat2014,
beer2014,
modiin2014,
betshemesh2014,
nahariyya2014,
qiryatatta2014,
givatayim2014)
counts2004 <- c(
jerusalem2004 %>% nrow,
Ashdod2004 %>% nrow,
Haifa2004 %>% nrow,
Herzliyya2004 %>% nrow,
Holon2004 %>% nrow,
Lod2004 %>% nrow,
Hadera2004 %>% nrow,
Ashqelon2004 %>% nrow,
Nettanya2004 %>% nrow,
Rehovot2004 %>% nrow,
Ramla2004 %>% nrow,
Raannana2004 %>% nrow,
tlv2004 %>% nrow,
bene2004 %>% nrow,
bat2004 %>% nrow,
kefar2004 %>% nrow,
petah2004 %>% nrow,
rishon2004 %>% nrow,
ramat2004 %>% nrow,
beer2004 %>% nrow,
modiin2004 %>% nrow,
betshemesh2004 %>% nrow,
nahariyya2004 %>% nrow,
qiryatatta2004 %>% nrow,
givatayim2004 %>% nrow)
counts2005 <- c(
jerusalem2005 %>% nrow,
Ashdod2005 %>% nrow,
Haifa2005 %>% nrow,
Herzliyya2005 %>% nrow,
Holon2005 %>% nrow,
Lod2005 %>% nrow,
Hadera2005 %>% nrow,
Ashqelon2005 %>% nrow,
Nettanya2005 %>% nrow,
Rehovot2005 %>% nrow,
Ramla2005 %>% nrow,
Raannana2005 %>% nrow,
tlv2005 %>% nrow,
bene2005 %>% nrow,
bat2005 %>% nrow,
kefar2005 %>% nrow,
petah2005 %>% nrow,
rishon2005 %>% nrow,
ramat2005 %>% nrow,
beer2005 %>% nrow,
modiin2005 %>% nrow,
betshemesh2005 %>% nrow,
nahariyya2005 %>% nrow,
qiryatatta2005 %>% nrow,
givatayim2005 %>% nrow)
counts2006 <- c(
jerusalem2006 %>% nrow,
Ashdod2006 %>% nrow,
Haifa2006 %>% nrow,
Herzliyya2006 %>% nrow,
Holon2006 %>% nrow,
Lod2006 %>% nrow,
Hadera2006 %>% nrow,
Ashqelon2006 %>% nrow,
Nettanya2006 %>% nrow,
Rehovot2006 %>% nrow,
Ramla2006 %>% nrow,
Raannana2006 %>% nrow,
tlv2006 %>% nrow,
bene2006 %>% nrow,
bat2006 %>% nrow,
kefar2006 %>% nrow,
petah2006 %>% nrow,
rishon2006 %>% nrow,
ramat2006 %>% nrow,
beer2006 %>% nrow,
modiin2006 %>% nrow,
betshemesh2006 %>% nrow,
nahariyya2006 %>% nrow,
qiryatatta2006 %>% nrow,
givatayim2006 %>% nrow)
counts2007 <- c(
jerusalem2007 %>% nrow,
Ashdod2007 %>% nrow,
Haifa2007 %>% nrow,
Herzliyya2007 %>% nrow,
Holon2007 %>% nrow,
Lod2007 %>% nrow,
Hadera2007 %>% nrow,
Ashqelon2007 %>% nrow,
Nettanya2007 %>% nrow,
Rehovot2007 %>% nrow,
Ramla2007 %>% nrow,
Raannana2007 %>% nrow,
tlv2007 %>% nrow,
bene2007 %>% nrow,
bat2007 %>% nrow,
kefar2007 %>% nrow,
petah2007 %>% nrow,
rishon2007 %>% nrow,
ramat2007 %>% nrow,
beer2007 %>% nrow,
modiin2007 %>% nrow,
betshemesh2007 %>% nrow,
nahariyya2007 %>% nrow,
qiryatatta2007 %>% nrow,
givatayim2007 %>% nrow)
counts2008 <- c(
jerusalem2008 %>% nrow,
Ashdod2008 %>% nrow,
Haifa2008 %>% nrow,
Herzliyya2008 %>% nrow,
Holon2008 %>% nrow,
Lod2008 %>% nrow,
Hadera2008 %>% nrow,
Ashqelon2008 %>% nrow,
Nettanya2008 %>% nrow,
Rehovot2008 %>% nrow,
Ramla2008 %>% nrow,
Raannana2008 %>% nrow,
tlv2008 %>% nrow,
bene2008 %>% nrow,
bat2008 %>% nrow,
kefar2008 %>% nrow,
petah2008 %>% nrow,
rishon2008 %>% nrow,
ramat2008 %>% nrow,
beer2008 %>% nrow,
modiin2008 %>% nrow,
betshemesh2008 %>% nrow,
nahariyya2008 %>% nrow,
qiryatatta2008 %>% nrow,
givatayim2008 %>% nrow)
counts2009 <- c(
jerusalem2009 %>% nrow,
Ashdod2009 %>% nrow,
Haifa2009 %>% nrow,
Herzliyya2009 %>% nrow,
Holon2009 %>% nrow,
Lod2009 %>% nrow,
Hadera2009 %>% nrow,
Ashqelon2009 %>% nrow,
Nettanya2009 %>% nrow,
Rehovot2009 %>% nrow,
Ramla2009 %>% nrow,
Raannana2009 %>% nrow,
tlv2009 %>% nrow,
bene2009 %>% nrow,
bat2009 %>% nrow,
kefar2009 %>% nrow,
petah2009 %>% nrow,
rishon2009 %>% nrow,
ramat2009 %>% nrow,
beer2009 %>% nrow,
modiin2009 %>% nrow,
betshemesh2009 %>% nrow,
nahariyya2009 %>% nrow,
qiryatatta2009 %>% nrow,
givatayim2009 %>% nrow)
counts2010 <- c(
jerusalem2010 %>% nrow,
Ashdod2010 %>% nrow,
Haifa2010 %>% nrow,
Herzliyya2010 %>% nrow,
Holon2010 %>% nrow,
Lod2010 %>% nrow,
Hadera2010 %>% nrow,
Ashqelon2010 %>% nrow,
Nettanya2010 %>% nrow,
Rehovot2010 %>% nrow,
Ramla2010 %>% nrow,
Raannana2010 %>% nrow,
tlv2010 %>% nrow,
bene2010 %>% nrow,
bat2010 %>% nrow,
kefar2010 %>% nrow,
petah2010 %>% nrow,
rishon2010 %>% nrow,
ramat2010 %>% nrow,
beer2010 %>% nrow,
modiin2010 %>% nrow,
betshemesh2010 %>% nrow,
nahariyya2010 %>% nrow,
qiryatatta2010 %>% nrow,
givatayim2010 %>% nrow)
counts2011 <- c(
jerusalem2011 %>% nrow,
Ashdod2011 %>% nrow,
Haifa2011 %>% nrow,
Herzliyya2011 %>% nrow,
Holon2011 %>% nrow,
Lod2011 %>% nrow,
Hadera2011 %>% nrow,
Ashqelon2011 %>% nrow,
Nettanya2011 %>% nrow,
Rehovot2011 %>% nrow,
Ramla2011 %>% nrow,
Raannana2011 %>% nrow,
tlv2011 %>% nrow,
bene2011 %>% nrow,
bat2011 %>% nrow,
kefar2011 %>% nrow,
petah2011 %>% nrow,
rishon2011 %>% nrow,
ramat2011 %>% nrow,
beer2011 %>% nrow,
modiin2011 %>% nrow,
betshemesh2011 %>% nrow,
nahariyya2011 %>% nrow,
qiryatatta2011 %>% nrow,
givatayim2011 %>% nrow)
counts2012 <- c(
jerusalem2012 %>% nrow,
Ashdod2012 %>% nrow,
Haifa2012 %>% nrow,
Herzliyya2012 %>% nrow,
Holon2012 %>% nrow,
Lod2012 %>% nrow,
Hadera2012 %>% nrow,
Ashqelon2012 %>% nrow,
Nettanya2012 %>% nrow,
Rehovot2012 %>% nrow,
Ramla2012 %>% nrow,
Raannana2012 %>% nrow,
tlv2012 %>% nrow,
bene2012 %>% nrow,
bat2012 %>% nrow,
kefar2012 %>% nrow,
petah2012 %>% nrow,
rishon2012 %>% nrow,
ramat2012 %>% nrow,
beer2012 %>% nrow,
modiin2012 %>% nrow,
betshemesh2012 %>% nrow,
nahariyya2012 %>% nrow,
qiryatatta2012 %>% nrow,
givatayim2012 %>% nrow)
counts2013 <- c(
jerusalem2013 %>% nrow,
Ashdod2013 %>% nrow,
Haifa2013 %>% nrow,
Herzliyya2013 %>% nrow,
Holon2013 %>% nrow,
Lod2013 %>% nrow,
Hadera2013 %>% nrow,
Ashqelon2013 %>% nrow,
Nettanya2013 %>% nrow,
Rehovot2013 %>% nrow,
Ramla2013 %>% nrow,
Raannana2013 %>% nrow,
tlv2013 %>% nrow,
bene2013 %>% nrow,
bat2013 %>% nrow,
kefar2013 %>% nrow,
petah2013 %>% nrow,
rishon2013 %>% nrow,
ramat2013 %>% nrow,
beer2013 %>% nrow,
modiin2013 %>% nrow,
betshemesh2013 %>% nrow,
nahariyya2013 %>% nrow,
qiryatatta2013 %>% nrow,
givatayim2013 %>% nrow)
counts2014 <- c(
jerusalem2014 %>% nrow,
Ashdod2014 %>% nrow,
Haifa2014 %>% nrow,
Herzliyya2014 %>% nrow,
Holon2014 %>% nrow,
Lod2014 %>% nrow,
Hadera2014 %>% nrow,
Ashqelon2014 %>% nrow,
Nettanya2014 %>% nrow,
Rehovot2014 %>% nrow,
Ramla2014 %>% nrow,
Raannana2014 %>% nrow,
tlv2014 %>% nrow,
bene2014 %>% nrow,
bat2014 %>% nrow,
kefar2014 %>% nrow,
petah2014 %>% nrow,
rishon2014 %>% nrow,
ramat2014 %>% nrow,
beer2014 %>% nrow,
modiin2014 %>% nrow,
betshemesh2014 %>% nrow,
nahariyya2014 %>% nrow,
qiryatatta2014 %>% nrow,
givatayim2014 %>% nrow)
## deprecated version
## counts2004 <- c(
## jerusalem2004 %>% count %>% as.numeric,
## Ashdod2004 %>% count %>% as.numeric,
## Haifa2004 %>% count %>% as.numeric,
## Herzliyya2004 %>% count %>% as.numeric,
## Holon2004 %>% count %>% as.numeric,
## Lod2004 %>% count %>% as.numeric,
## Hadera2004 %>% count %>% as.numeric,
## Ashqelon2004 %>% count %>% as.numeric,
## Nettanya2004 %>% count %>% as.numeric,
## Rehovot2004 %>% count %>% as.numeric,
## Ramla2004 %>% count %>% as.numeric,
## Raannana2004 %>% count %>% as.numeric,
## tlv2004 %>% count %>% as.numeric,
## bene2004 %>% count %>% as.numeric,
## bat2004 %>% count %>% as.numeric,
## kefar2004 %>% count %>% as.numeric,
## petah2004 %>% count %>% as.numeric,
## rishon2004 %>% count %>% as.numeric,
## ramat2004 %>% count %>% as.numeric,
## beer2004 %>% count %>% as.numeric,
## modiin2004 %>% count %>% as.numeric,
## betshemesh2004 %>% count %>% as.numeric,
## nahariyya2004 %>% count %>% as.numeric,
## qiryatatta2004 %>% count %>% as.numeric,
## givatayim2004 %>% count %>% as.numeric)
## counts2005 <- c(
## jerusalem2005 %>% count %>% as.numeric,
## Ashdod2005 %>% count %>% as.numeric,
## Haifa2005 %>% count %>% as.numeric,
## Herzliyya2005 %>% count %>% as.numeric,
## Holon2005 %>% count %>% as.numeric,
## Lod2005 %>% count %>% as.numeric,
## Hadera2005 %>% count %>% as.numeric,
## Ashqelon2005 %>% count %>% as.numeric,
## Nettanya2005 %>% count %>% as.numeric,
## Rehovot2005 %>% count %>% as.numeric,
## Ramla2005 %>% count %>% as.numeric,
## Raannana2005 %>% count %>% as.numeric,
## tlv2005 %>% count %>% as.numeric,
## bene2005 %>% count %>% as.numeric,
## bat2005 %>% count %>% as.numeric,
## kefar2005 %>% count %>% as.numeric,
## petah2005 %>% count %>% as.numeric,
## rishon2005 %>% count %>% as.numeric,
## ramat2005 %>% count %>% as.numeric,
## beer2005 %>% count %>% as.numeric,
## modiin2005 %>% count %>% as.numeric,
## betshemesh2005 %>% count %>% as.numeric,
## nahariyya2005 %>% count %>% as.numeric,
## qiryatatta2005 %>% count %>% as.numeric,
## givatayim2005 %>% count %>% as.numeric)
## counts2006 <- c(
## jerusalem2006 %>% count %>% as.numeric,
## Ashdod2006 %>% count %>% as.numeric,
## Haifa2006 %>% count %>% as.numeric,
## Herzliyya2006 %>% count %>% as.numeric,
## Holon2006 %>% count %>% as.numeric,
## Lod2006 %>% count %>% as.numeric,
## Hadera2006 %>% count %>% as.numeric,
## Ashqelon2006 %>% count %>% as.numeric,
## Nettanya2006 %>% count %>% as.numeric,
## Rehovot2006 %>% count %>% as.numeric,
## Ramla2006 %>% count %>% as.numeric,
## Raannana2006 %>% count %>% as.numeric,
## tlv2006 %>% count %>% as.numeric,
## bene2006 %>% count %>% as.numeric,
## bat2006 %>% count %>% as.numeric,
## kefar2006 %>% count %>% as.numeric,
## petah2006 %>% count %>% as.numeric,
## rishon2006 %>% count %>% as.numeric,
## ramat2006 %>% count %>% as.numeric,
## beer2006 %>% count %>% as.numeric,
## modiin2006 %>% count %>% as.numeric,
## betshemesh2006 %>% count %>% as.numeric,
## nahariyya2006 %>% count %>% as.numeric,
## qiryatatta2006 %>% count %>% as.numeric,
## givatayim2006 %>% count %>% as.numeric)
## counts2007 <- c(
## jerusalem2007 %>% count %>% as.numeric,
## Ashdod2007 %>% count %>% as.numeric,
## Haifa2007 %>% count %>% as.numeric,
## Herzliyya2007 %>% count %>% as.numeric,
## Holon2007 %>% count %>% as.numeric,
## Lod2007 %>% count %>% as.numeric,
## Hadera2007 %>% count %>% as.numeric,
## Ashqelon2007 %>% count %>% as.numeric,
## Nettanya2007 %>% count %>% as.numeric,
## Rehovot2007 %>% count %>% as.numeric,
## Ramla2007 %>% count %>% as.numeric,
## Raannana2007 %>% count %>% as.numeric,
## tlv2007 %>% count %>% as.numeric,
## bene2007 %>% count %>% as.numeric,
## bat2007 %>% count %>% as.numeric,
## kefar2007 %>% count %>% as.numeric,
## petah2007 %>% count %>% as.numeric,
## rishon2007 %>% count %>% as.numeric,
## ramat2007 %>% count %>% as.numeric,
## beer2007 %>% count %>% as.numeric,
## modiin2007 %>% count %>% as.numeric,
## betshemesh2007 %>% count %>% as.numeric,
## nahariyya2007 %>% count %>% as.numeric,
## qiryatatta2007 %>% count %>% as.numeric,
## givatayim2007 %>% count %>% as.numeric)
## counts2008 <- c(
## jerusalem2008 %>% count %>% as.numeric,
## Ashdod2008 %>% count %>% as.numeric,
## Haifa2008 %>% count %>% as.numeric,
## Herzliyya2008 %>% count %>% as.numeric,
## Holon2008 %>% count %>% as.numeric,
## Lod2008 %>% count %>% as.numeric,
## Hadera2008 %>% count %>% as.numeric,
## Ashqelon2008 %>% count %>% as.numeric,
## Nettanya2008 %>% count %>% as.numeric,
## Rehovot2008 %>% count %>% as.numeric,
## Ramla2008 %>% count %>% as.numeric,
## Raannana2008 %>% count %>% as.numeric,
## tlv2008 %>% count %>% as.numeric,
## bene2008 %>% count %>% as.numeric,
## bat2008 %>% count %>% as.numeric,
## kefar2008 %>% count %>% as.numeric,
## petah2008 %>% count %>% as.numeric,
## rishon2008 %>% count %>% as.numeric,
## ramat2008 %>% count %>% as.numeric,
## beer2008 %>% count %>% as.numeric,
## modiin2008 %>% count %>% as.numeric,
## betshemesh2008 %>% count %>% as.numeric,
## nahariyya2008 %>% count %>% as.numeric,
## qiryatatta2008 %>% count %>% as.numeric,
## givatayim2008 %>% count %>% as.numeric)
## counts2009 <- c(
## jerusalem2009 %>% count %>% as.numeric,
## Ashdod2009 %>% count %>% as.numeric,
## Haifa2009 %>% count %>% as.numeric,
## Herzliyya2009 %>% count %>% as.numeric,
## Holon2009 %>% count %>% as.numeric,
## Lod2009 %>% count %>% as.numeric,
## Hadera2009 %>% count %>% as.numeric,
## Ashqelon2009 %>% count %>% as.numeric,
## Nettanya2009 %>% count %>% as.numeric,
## Rehovot2009 %>% count %>% as.numeric,
## Ramla2009 %>% count %>% as.numeric,
## Raannana2009 %>% count %>% as.numeric,
## tlv2009 %>% count %>% as.numeric,
## bene2009 %>% count %>% as.numeric,
## bat2009 %>% count %>% as.numeric,
## kefar2009 %>% count %>% as.numeric,
## petah2009 %>% count %>% as.numeric,
## rishon2009 %>% count %>% as.numeric,
## ramat2009 %>% count %>% as.numeric,
## beer2009 %>% count %>% as.numeric,
## modiin2009 %>% count %>% as.numeric,
## betshemesh2009 %>% count %>% as.numeric,
## nahariyya2009 %>% count %>% as.numeric,
## qiryatatta2009 %>% count %>% as.numeric,
## givatayim2009 %>% count %>% as.numeric)
## counts2010 <- c(
## jerusalem2010 %>% count %>% as.numeric,
## Ashdod2010 %>% count %>% as.numeric,
## Haifa2010 %>% count %>% as.numeric,
## Herzliyya2010 %>% count %>% as.numeric,
## Holon2010 %>% count %>% as.numeric,
## Lod2010 %>% count %>% as.numeric,
## Hadera2010 %>% count %>% as.numeric,
## Ashqelon2010 %>% count %>% as.numeric,
## Nettanya2010 %>% count %>% as.numeric,
## Rehovot2010 %>% count %>% as.numeric,
## Ramla2010 %>% count %>% as.numeric,
## Raannana2010 %>% count %>% as.numeric,
## tlv2010 %>% count %>% as.numeric,
## bene2010 %>% count %>% as.numeric,
## bat2010 %>% count %>% as.numeric,
## kefar2010 %>% count %>% as.numeric,
## petah2010 %>% count %>% as.numeric,
## rishon2010 %>% count %>% as.numeric,
## ramat2010 %>% count %>% as.numeric,
## beer2010 %>% count %>% as.numeric,
## modiin2010 %>% count %>% as.numeric,
## betshemesh2010 %>% count %>% as.numeric,
## nahariyya2010 %>% count %>% as.numeric,
## qiryatatta2010 %>% count %>% as.numeric,
## givatayim2010 %>% count %>% as.numeric)
## counts2011 <- c(
## jerusalem2011 %>% count %>% as.numeric,
## Ashdod2011 %>% count %>% as.numeric,
## Haifa2011 %>% count %>% as.numeric,
## Herzliyya2011 %>% count %>% as.numeric,
## Holon2011 %>% count %>% as.numeric,
## Lod2011 %>% count %>% as.numeric,
## Hadera2011 %>% count %>% as.numeric,
## Ashqelon2011 %>% count %>% as.numeric,
## Nettanya2011 %>% count %>% as.numeric,
## Rehovot2011 %>% count %>% as.numeric,
## Ramla2011 %>% count %>% as.numeric,
## Raannana2011 %>% count %>% as.numeric,
## tlv2011 %>% count %>% as.numeric,
## bene2011 %>% count %>% as.numeric,
## bat2011 %>% count %>% as.numeric,
## kefar2011 %>% count %>% as.numeric,
## petah2011 %>% count %>% as.numeric,
## rishon2011 %>% count %>% as.numeric,
## ramat2011 %>% count %>% as.numeric,
## beer2011 %>% count %>% as.numeric,
## modiin2011 %>% count %>% as.numeric,
## betshemesh2011 %>% count %>% as.numeric,
## nahariyya2011 %>% count %>% as.numeric,
## qiryatatta2011 %>% count %>% as.numeric,
## givatayim2011 %>% count %>% as.numeric)
## counts2012 <- c(
## jerusalem2012 %>% count %>% as.numeric,
## Ashdod2012 %>% count %>% as.numeric,
## Haifa2012 %>% count %>% as.numeric,
## Herzliyya2012 %>% count %>% as.numeric,
## Holon2012 %>% count %>% as.numeric,
## Lod2012 %>% count %>% as.numeric,
## Hadera2012 %>% count %>% as.numeric,
## Ashqelon2012 %>% count %>% as.numeric,
## Nettanya2012 %>% count %>% as.numeric,
## Rehovot2012 %>% count %>% as.numeric,
## Ramla2012 %>% count %>% as.numeric,
## Raannana2012 %>% count %>% as.numeric,
## tlv2012 %>% count %>% as.numeric,
## bene2012 %>% count %>% as.numeric,
## bat2012 %>% count %>% as.numeric,
## kefar2012 %>% count %>% as.numeric,
## petah2012 %>% count %>% as.numeric,
## rishon2012 %>% count %>% as.numeric,
## ramat2012 %>% count %>% as.numeric,
## beer2012 %>% count %>% as.numeric,
## modiin2012 %>% count %>% as.numeric,
## betshemesh2012 %>% count %>% as.numeric,
## nahariyya2012 %>% count %>% as.numeric,
## qiryatatta2012 %>% count %>% as.numeric,
## givatayim2012 %>% count %>% as.numeric)
## counts2013 <- c(
## jerusalem2013 %>% count %>% as.numeric,
## Ashdod2013 %>% count %>% as.numeric,
## Haifa2013 %>% count %>% as.numeric,
## Herzliyya2013 %>% count %>% as.numeric,
## Holon2013 %>% count %>% as.numeric,
## Lod2013 %>% count %>% as.numeric,
## Hadera2013 %>% count %>% as.numeric,
## Ashqelon2013 %>% count %>% as.numeric,
## Nettanya2013 %>% count %>% as.numeric,
## Rehovot2013 %>% count %>% as.numeric,
## Ramla2013 %>% count %>% as.numeric,
## Raannana2013 %>% count %>% as.numeric,
## tlv2013 %>% count %>% as.numeric,
## bene2013 %>% count %>% as.numeric,
## bat2013 %>% count %>% as.numeric,
## kefar2013 %>% count %>% as.numeric,
## petah2013 %>% count %>% as.numeric,
## rishon2013 %>% count %>% as.numeric,
## ramat2013 %>% count %>% as.numeric,
## beer2013 %>% count %>% as.numeric,
## modiin2013 %>% count %>% as.numeric,
## betshemesh2013 %>% count %>% as.numeric,
## nahariyya2013 %>% count %>% as.numeric,
## qiryatatta2013 %>% count %>% as.numeric,
## givatayim2013 %>% count %>% as.numeric)
## counts2014 <- c(
## jerusalem2014 %>% count %>% as.numeric,
## Ashdod2014 %>% count %>% as.numeric,
## Haifa2014 %>% count %>% as.numeric,
## Herzliyya2014 %>% count %>% as.numeric,
## Holon2014 %>% count %>% as.numeric,
## Lod2014 %>% count %>% as.numeric,
## Hadera2014 %>% count %>% as.numeric,
## Ashqelon2014 %>% count %>% as.numeric,
## Nettanya2014 %>% count %>% as.numeric,
## Rehovot2014 %>% count %>% as.numeric,
## Ramla2014 %>% count %>% as.numeric,
## Raannana2014 %>% count %>% as.numeric,
## tlv2014 %>% count %>% as.numeric,
## bene2014 %>% count %>% as.numeric,
## bat2014 %>% count %>% as.numeric,
## kefar2014 %>% count %>% as.numeric,
## petah2014 %>% count %>% as.numeric,
## rishon2014 %>% count %>% as.numeric,
## ramat2014 %>% count %>% as.numeric,
## beer2014 %>% count %>% as.numeric,
## modiin2014 %>% count %>% as.numeric,
## betshemesh2014 %>% count %>% as.numeric,
## nahariyya2014 %>% count %>% as.numeric,
## qiryatatta2014 %>% count %>% as.numeric,
## givatayim2014 %>% count %>% as.numeric)
## end - deprecated
## list
survey2004 <<-as.data.frame(rbind(list = cityOrder,
"2004" = counts2004,
"2005" = counts2005,
"2006" = counts2006,
"2007" = counts2007,
"2008" = counts2008,
"2009" = counts2009,
"2010" = counts2010,
"2011" = counts2011,
"2012" = counts2012,
"2013" = counts2013,
"2014" = counts2014))
surveyList <<-as.data.frame(cbind(list = cityOrder,
"2004" = counts2004,
"2005" = counts2005,
"2006" = counts2006,
"2007" = counts2007,
"2008" = counts2008,
"2009" = counts2009,
"2010" = counts2010,
"2011" = counts2011,
"2012" = counts2012,
"2013" = counts2013,
"2014" = counts2014))
return("success - 0n9")
}else if(arg == "addregion"){
renters2004 <- renters2004 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2004 <<- renters2004 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2004$regionOne <- renters2004$regionOne %>% as.factor
renters2004$regionTwo <- renters2004$regionTwo %>% as.factor
renters2005 <- renters2005 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2005 <<- renters2005 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2005$regionOne <- renters2005$regionOne %>% as.factor
renters2005$regionTwo <- renters2005$regionTwo %>% as.factor
renters2006 <- renters2006 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2006 <<- renters2006 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2006$regionOne <- renters2006$regionOne %>% as.factor
renters2006$regionTwo <- renters2006$regionTwo %>% as.factor
renters2007 <- renters2007 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2007 <<- renters2007 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2007$regionOne <- renters2007$regionOne %>% as.factor
renters2007$regionTwo <- renters2007$regionTwo %>% as.factor
renters2008 <- renters2008 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2008 <<- renters2008 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2008$regionOne <- renters2008$regionOne %>% as.factor
renters2008$regionTwo <- renters2008$regionTwo %>% as.factor
renters2009 <- renters2009 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2009 <<- renters2009 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2009$regionOne <- renters2009$regionOne %>% as.factor
renters2009$regionTwo <- renters2009$regionTwo %>% as.factor
renters2010 <- renters2010 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2010 <<- renters2010 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2010$regionOne <- renters2010$regionOne %>% as.factor
renters2010$regionTwo <- renters2010$regionTwo %>% as.factor
renters2011 <- renters2011 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2011 <<- renters2011 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2011$regionOne <- renters2011$regionOne %>% as.factor
renters2011$regionTwo <- renters2011$regionTwo %>% as.factor
renters2012 <- renters2012 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2012 <<- renters2012 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2012$regionOne <- renters2012$regionOne %>% as.factor
renters2012$regionTwo <- renters2012$regionTwo %>% as.factor
renters2013 <- renters2013 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2013 <<- renters2013 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2013$regionOne <- renters2013$regionOne %>% as.factor
renters2013$regionTwo <- renters2013$regionTwo %>% as.factor
renters2014 <- renters2014 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2014 <<- renters2014 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
renters2014$regionOne <- renters2014$regionOne %>% as.factor
renters2014$regionTwo <- renters2014$regionTwo %>% as.factor
####### ################
################ ###############
##################
owners2004 <- owners2004 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2004 <<- owners2004 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2004$regionOne <- owners2004$regionOne %>% as.factor
owners2004$regionTwo <- owners2004$regionTwo %>% as.factor
owners2005 <- owners2005 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2005 <<- owners2005 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2005$regionOne <- owners2005$regionOne %>% as.factor
owners2005$regionTwo <- owners2005$regionTwo %>% as.factor
owners2006 <- owners2006 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2006 <<- owners2006 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2006$regionOne <- owners2006$regionOne %>% as.factor
owners2006$regionTwo <- owners2006$regionTwo %>% as.factor
owners2007 <- owners2007 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2007 <<- owners2007 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2007$regionOne <- owners2007$regionOne %>% as.factor
owners2007$regionTwo <- owners2007$regionTwo %>% as.factor
owners2008 <- owners2008 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2008 <<- owners2008 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2008$regionOne <- owners2008$regionOne %>% as.factor
owners2008$regionTwo <- owners2008$regionTwo %>% as.factor
owners2009 <- owners2009 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2009 <<- owners2009 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2009$regionOne <- owners2009$regionOne %>% as.factor
owners2009$regionTwo <- owners2009$regionTwo %>% as.factor
owners2010 <- owners2010 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2010 <<- owners2010 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2010$regionOne <- owners2010$regionOne %>% as.factor
owners2010$regionTwo <- owners2010$regionTwo %>% as.factor
owners2011 <- owners2011 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2011 <<- owners2011 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2011$regionOne <- owners2011$regionOne %>% as.factor
owners2011$regionTwo <- owners2011$regionTwo %>% as.factor
owners2012 <- owners2012 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2012 <<- owners2012 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2012$regionOne <- owners2012$regionOne %>% as.factor
owners2012$regionTwo <- owners2012$regionTwo %>% as.factor
owners2013 <- owners2013 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2013 <<- owners2013 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2013$regionOne <- owners2013$regionOne %>% as.factor
owners2013$regionTwo <- owners2013$regionTwo %>% as.factor
owners2014 <- owners2014 %>%
mutate(regionOne = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo" ~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'Gush Dan',
CODELOC == "Rehovot" ~ 'Gush Dan',
CODELOC == "Ramla" ~ 'Gush Dan',
CODELOC == "Raannana" ~ 'Gush Dan',
CODELOC == "Bene Beraq" ~ 'Gush Dan',
CODELOC == "Bat Yam" ~ 'Gush Dan',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'Gush Dan',
CODELOC == "Rishon LeZiyon" ~ 'Gush Dan',
CODELOC == "Ramat Gan" ~ 'Gush Dan',
CODELOC == "Modi'in" ~ 'Gush Dan',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2014 <<- owners2014 %>%
plyr::mutate(regionTwo = case_when(
CODELOC == "Jerusalem" ~ 'Jerusalem',
CODELOC == "Bet Shemesh" ~ 'Jerusalem',
CODELOC == "Ashdod" ~ 'HaDarom',
CODELOC == "Ashkelon" ~ 'HaDarom',
CODELOC == "Beer Sheva" ~ 'HaDarom',
CODELOC == "Lod" ~ 'HaMerkaz',
CODELOC == "Kefar Sava" ~ 'HaMerkaz',
CODELOC == "Nahariyya" ~ 'HaZafon',
CODELOC == "Haifa" ~ 'Haifa',
CODELOC == "Herzliyya" ~ 'Tel Aviv',
CODELOC == "Tel Aviv-Yaffo"~ 'Tel Aviv',
CODELOC == "Holon" ~ 'Gush Dan',
CODELOC == "Netanya" ~ 'HaMerkaz',
CODELOC == "Rehovot" ~ 'HaMerkaz',
CODELOC == "Ramla" ~ 'HaMerkaz',
CODELOC == "Raannana" ~ 'HaMerkaz',
CODELOC == "Bene Beraq" ~ 'Tel Aviv',
CODELOC == "Bat Yam" ~ 'Tel Aviv',
CODELOC == "Kefar Sava" ~ 'Gush Dan',
CODELOC == "Petah Tiqwa" ~ 'HaMerkaz',
CODELOC == "Rishon LeZiyon" ~ 'HaMerkaz',
CODELOC == "Ramat Gan" ~ 'Tel Aviv',
CODELOC == "Modi'in" ~ 'HaMerkaz',
CODELOC == "Hadera" ~ 'Sharon',
CODELOC == "Qirat Ata" ~ 'Qrayot Haifa',
CODELOC == "Qiryat Atta" ~ 'Qrayot Haifa',
TRUE ~ 'Too Small - No Region'))
owners2014$regionOne <- owners2014$regionOne %>% as.factor
owners2014$regionTwo <- owners2014$regionTwo %>% as.factor
####################
## drop small towns of uncertain geography
###################
#renters2004$CODELOC %>% levels
#head(renters2004$AGE.x[renters2004$CODELOC == "Less than 50,000 inhabitants"])
#renters2004 <- renters2004[!renters2004$CODELOC == "Less than 100,000 inhabitants", ]
## renters2004 <<- droplevels(renters2004[!CODELOC == "Less than 50,000 inhabitants", ])
## renters2005 <- renters2005[!renters2005$CODELOC == "Less than 100,000 inhabitants", ]
## renters2005 <<- droplevels(renters2005[!renters2005$CODELOC == "Less than 50,000 inhabitants", ])
## renters2006 <- renters2006[!renters2006$CODELOC == "Less than 100,000 inhabitants", ]
## renters2006 <<- droplevels(renters2006[!renters2006$CODELOC == "Less than 50,000 inhabitants", ])
## renters2007 <- renters2007[!renters2007$CODELOC == "Less than 100,000 inhabitants", ]
## renters2007 <<- droplevels(renters2007[!renters2007$CODELOC == "Less than 50,000 inhabitants", ])
## renters2008 <- renters2008[!renters2008$CODELOC == "Less than 100,000 inhabitants", ]
## renters2008 <<- droplevels(renters2008[!renters2008$CODELOC == "Less than 50,000 inhabitants", ])
## renters2009 <- renters2009[!renters2009$CODELOC == "Less than 100,000 inhabitants", ]
## renters2009 <<- droplevels(renters2009[!renters2009$CODELOC == "Less than 50,000 inhabitants", ])
## renters2010 <- renters2010[!renters2010$CODELOC == "Less than 100,000 inhabitants", ]
## renters2010 <<- droplevels(renters2010[!renters2010$CODELOC == "Less than 50,000 inhabitants", ])
## renters2011 <- renters2011[!renters2011$CODELOC == "Less than 100,000 inhabitants", ]
## renters2011 <<- droplevels(renters2011[!renters2011$CODELOC == "Less than 50,000 inhabitants", ])
## renters2012 <- renters2012[!renters2012$CODELOC == "Less than 100,000 inhabitants", ]
## renters2012 <<- droplevels(renters2012[!renters2012$CODELOC == "Less than 50,000 inhabitants", ])
## renters2013 <- renters2013[!renters2013$CODELOC == "Less than 100,000 inhabitants", ]
## renters2013 <<- droplevels(renters2013[!renters2013$CODELOC == "Less than 50,000 inhabitants", ])
## renters2014 <- renters2014[!renters2014$CODELOC == "Less than 100,000 inhabitants", ]
## renters2014 <<- droplevels(renters2014[!renters2014$CODELOC == "Less than 50,000 inhabitants", ])
############################################################################################
## owners2004 <- owners2004[!owners2004$CODELOC == "Less than 100,000 inhabitants", ]
## owners2004 <<- droplevels(owners2004[!owners2004$CODELOC == "Less than 50,000 inhabitants", ])
## owners2005 <- owners2005[!owners2005$CODELOC == "Less than 100,000 inhabitants", ]
## owners2005 <<- droplevels(owners2005[!owners2005$CODELOC == "Less than 50,000 inhabitants", ])
## owners2006 <- owners2006[!owners2006$CODELOC == "Less than 100,000 inhabitants", ]
## owners2006 <<- droplevels(owners2006[!owners2006$CODELOC == "Less than 50,000 inhabitants", ])
## owners2007 <- owners2007[!owners2007$CODELOC == "Less than 100,000 inhabitants", ]
## owners2007 <<- droplevels(owners2007[!owners2007$CODELOC == "Less than 50,000 inhabitants", ])
## owners2008 <- owners2008[!owners2008$CODELOC == "Less than 100,000 inhabitants", ]
## owners2008 <<- droplevels(owners2008[!owners2008$CODELOC == "Less than 50,000 inhabitants", ])
## owners2009 <- owners2009[!owners2009$CODELOC == "Less than 100,000 inhabitants", ]
## owners2009 <<- droplevels(owners2009[!owners2009$CODELOC == "Less than 50,000 inhabitants", ])
## owners2010 <- owners2010[!owners2010$CODELOC == "Less than 100,000 inhabitants", ]
## owners2010 <<- droplevels(owners2010[!owners2010$CODELOC == "Less than 50,000 inhabitants", ])
## owners2011 <- owners2011[!owners2011$CODELOC == "Less than 100,000 inhabitants", ]
## owners2011 <<- droplevels(owners2011[!owners2011$CODELOC == "Less than 50,000 inhabitants", ])
## owners2012 <- owners2012[!owners2012$CODELOC == "Less than 100,000 inhabitants", ]
## owners2012 <<- droplevels(owners2012[!owners2012$CODELOC == "Less than 50,000 inhabitants", ])
## owners2013 <- owners2013[!owners2013$CODELOC == "Less than 100,000 inhabitants", ]
## owners2013 <<- droplevels(owners2013[!owners2013$CODELOC == "Less than 50,000 inhabitants", ])
## owners2014 <- owners2014[!owners2014$CODELOC == "Less than 100,000 inhabitants", ]
## owners2014 <<- droplevels(owners2014[!owners2014$CODELOC == "Less than 50,000 inhabitants", ])
rentersList <<- c(
renters2004,
renters2005,
renters2006,
renters2007,
renters2008,
renters2009,
renters2010,
renters2011,
renters2012,
renters2013,
renters2014)
ownersList <<- c(
owners2004,
owners2005,
owners2006,
owners2007,
owners2008,
owners2009,
owners2010,
owners2011,
owners2012,
owners2013,
owners2014)
return("added $region column before merging YYYY frames")
}else if(arg == "writeOutRegions"){
saveRDS(ownersList, "../savedData/ownersList.rds")
saveRDS(rentersList, "../savedData/rentersList.rds")
return("saved owners and renters with renter columns - v. 4-Aug")
}else if(arg == "writeOut"){
## exports these dataframes to the global environment
dput(cityList, "../dataframes/cityList.txt")
## survey2004 table of people surveyed by city and year
## ownerCounts <- 99
## ownersList <- 99
## ownersYYYY <- 99
## renterCounts <- 99
## rentersList <- 99
## rentersYYYY <- 99
## jerusalemYYYY <- 99
## renter /owner
return("wrote cityList to file")
}else if(arg == "saved"){
cityList <<- dget("../dataframes/cityList.txt")
return("Imported saved cityList.")
}else{
return("not implemented n;09ha0n9")
}
}
## ```{r firstThreeYears}
## 99
## ## year 4 - check
## ## dplyr::filter( familiesList[[4]], codeloc="Ashqelon") %>% nrow
## ## ## 6000, that doesn't seem right either
## ## subset(familiesList[[4]], codeloc="Tel Aviv-Yafo") %>% nrow
## ## ## possible spelling changes
## ## ## [15] "Ashkelon"
## ## ## Tel Aviv-Yaffo
## ## ## Netanya
## ## levels(familiesList[[4]]$codeloc)
## ## subset(familiesList[[3]], codeloc=="Netanya") %>% nrow ## zero with this spelling
## ## subset(familiesList[[4]], codeloc=="Netanya") %>% nrow ## now there are some
## ## subset(familiesList[[3]], codeloc=="Nettanya") %>% nrow ## double t for 3 yrs
## ## subset(familiesList[[4]], codeloc=="Ashkelon") %>% nrow
## ## ##############
## ## subset(familiesList[[3]], codeloc=="Netanya") %>% nrow ## zero with this spelling
## ## subset(familiesList[[4]], codeloc=="Netanya") %>% nrow ## now there are some
## ## subset(familiesList[[3]], codeloc=="Nettanya") %>% nrow ## double t for 3 yrs
## subset(familiesList[[4]], codeloc=="Ashkelon") %>% nrow
## subset(familiesList[[4]], codeloc="Ashqelon") %>% nrow
## ## check Qiryat Ata for 2014 - does it have a spelling change??
## length(familiesList)
## levels(familiesList[[11]]$codeloc)
## levels(familiesList[[10]]$codeloc)
## levels(familiesList[[11]]$codeloc)
## ## yes! 2014 - only 1 t in Ata
## subset(familiesList[[11]], codeloc=="Qiryat Ata") %>% nrow
## ```
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.