universitybus: University bus travel data

In AirportProblems: Analysis of Cost Allocation for Airport Problems

University bus travel data

Description

Data containing 4 variables with information about the round-trip journeys of university students traveling by bus from the Morrazo region (Galicia, Spain) to the University of Vigo.

Usage

universitybus

Format

A data frame with 13 rows and 4 columns (variables):

district

Area where each student boards and alights from the bus

town

Town to which each student belongs

distance

Distance in kilometers of the road route (bus path) between a district and the University of Vigo

passengers

Number of passengers per district

Source

Own elaboration based on data retrieved from Google Maps (accessed on April 25, 2025).

Examples

# We assume that the bus is entirely funded by the municipalities
# How are the cots distributed among them?

# Allocation by district (in km)
by_district <- multiclonesrules(universitybus$distance, universitybus$passengers,
agents_names = universitybus$district, labels = FALSE)

# Allocation by town (in km)
district_to_town <- setNames(universitybus$town, universitybus$district)
by_town <- t(rowsum(t(by_district), group = district_to_town[colnames(by_district)]))
print(by_town)

# Cost allocation by town (in euros)
cT <- 500 # Total cost of the journey (bus rental cost + variable costs)
max_dist <- max(universitybus$distance) # maximum distance
by_town_cost <- round(by_town * (cT / max_dist), 2) # km to euros
print(by_town_cost)

AirportProblems documentation built on June 8, 2025, 10:49 a.m.