#' @name StopsForSIRI
#' @title subset stops for SIRIdf
#' @description
#' A simple subset of the GTFS stops table to the SIRI data being used in the current analysis.
#' requires the SIRI data.frame to be after \code{\link{organizeSIRIdf}} and the original GTFS stops table to be used.
#' @param SIRI a SIRIdf after organizeSIRIdf (SIRIdf3)
#' @param stops GTFSstops table
#' @param trips GTFStrips table
#' @param stop_times GTFSstop_times table
#' @return A subset of the GTFS stops table conforming to the bus route being evaluated.
#' @references Bogin, D., Levy, N. and Ben-Elia E. (2018) \emph{Spatial and Temporal Estimation of the Service Reliability of Public Transportation Using Big Data and Open Source Tools}
#' @section Warning:
#' Do Not use this function on it's own, it is meant to be used only as part of the STG process
#' @seealso \code{\link{STG}}
#' @keywords misc internal
StopsForSIRI <- function(SIRI, stops,trips,stop_times){
if(length(unique(SIRI$LineRef))>1){
print("ERROR: SIRI file contains more then one LineRef, there should only be 1 unique LineRef")
}else{
tr = trips$trip_id[trips$route_id %in% SIRI$LineRef]
st = unique(stop_times$stop_id[stop_times$trip_id %in% tr])
s = stops[which(stops$stop_id %in% st, arr.ind = TRUE),]
return(s)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.