# NOT RUN {
para <- babsimHospitalPara()
conf <- babsimToolsConf()
data <- getObkData()
set.seed(conf$seed)
para <- checkSimPara(para)
arrivalTimes <- getArrivalTimes(data$simData$Infected)
envs <- babsimHospital(
arrivalTimes = arrivalTimes,
conf = conf,
para = para
)
fieldEvents <- getRealBeds(
data = data$fieldData,
resource = conf$ResourceNames
)
res <- getDailyMaxResults(
envs = envs,
fieldEvents = fieldEvents,
conf = conf
)
err <- getError(res, conf = conf)
# }
Run the code above in your browser using DataLab