# 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