giacecco · August 29, 2015 14:25
diff --git a/5.R b/5.R
 # find how many opportunities for applying the inference algorithm are available, and min and max 
 # aon per street
 lrpp_streets_for_inference <- lrpp_addresses_with_numeric_aon %>% group_by(street, pcd) %>% summarise(minAon = min(aon), maxAon = max(aon), how_many = n()) %>% filter(how_many > 1)
diff --git a/gistfile1.txt b/gistfile1.txt
 > nrow(lrpp_streets_for_inference)
 [1] 7002
 >
	# find how many opportunities for applying the inference algorithm are available, and min and max
	# aon per street
	lrpp_streets_for_inference <- lrpp_addresses_with_numeric_aon %>% group_by(street, pcd) %>% summarise(minAon = min(aon), maxAon = max(aon), how_many = n()) %>% filter(how_many > 1)