R/full_model.R

In hktosun/gozentosun2021: Replication of Gozen & Tosun (2021)

#' Run the full model
#'
#' Run the full model to create the dataset, generate the plots and run the estimation.
#'
#' @export

full_model <- function(){

	drop_zones <- c(27, 201, 117, 86, 1, 2, 8, 30, 110, 111, 103, 154, 59, 93,
					96, 194, 46, 240, 43,190,  184, 99, 128, 12, 120, 31, 168,
					199, 36, 177, 198, 265, 57, 132, 138, 202)

	sc <- create_spark_connection()


	# Step 1. Create the datasets
	create_ride_data(sc)

	create_bike_data(sc)

	create_estimation_data(sc)


	# Step 2. Create descriptive statistics & plots










}